Top 10k strings from ZX Spectrum Graphics Elementary (1992)(Inforkom)(ru)[book].fdi in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Docs / Sinclair ZX Spectrum - Docs - [FDI] (TOSEC-v2007-01-01) /
Back to the directory listing
535
472 ;
139
65 ;
53
41 ;
39
38
33
28
27
25
21
19
18 -
18 ;
18
17 "
17
15
14 80 IF a<>z THEN PRINT "??": STOP
14 70 READ a
14 60 LET z=INT (((z/long)-INT (z/long))*long)
14 30 FOR i=0 TO long-1: READ a
14 10 REM ***
13 (
13 50 NEXT i
13 40 POKE (adr+i),a: LET z=z+a
13
12 UUUUUUUUUUUUUUUUUUU
12 -
11 RRA
11 ;
10 ;******************
10
9 ;*******************
9 500 REM ***
9 ;
9
8 . c.109...111).
8 "
8 2.
8 520 DATA 0, 9, 86, 14, 8
8 510 DATA 42, 11, 92, 1, 4
8
8
8
7 3.
7 RET NZ ;
7
7
6 1.
6 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
6 ;
6
6
5 p$p$p$p$pHpHpHpHplplplp
5 h -
5 H L
5 RLCA
5
4 perewod9~isel9iz9
4 208,208,208,208
4 11,11,11,11
4 .109...111.
4 . 109...111
4 X
4 RET ;
4 -
4 ;
4
4
3 X X X X X X X X
3 X X X X X X
3 UUUUUUUUUUU
3 FFFFFFFFFFFFFFFFFFFF
3 ;**********************
3 .c.109...111).
3 )
3 "" ""
3 OUT 254,n
3 FN g(x,y,p,q).
3 .
3 ATTR_T (23695 = 5C8FH);
3 ATTR_P (23693 = 5C8DH);
3 -
3 ~~~~~~~~~
3 y -
3 x -
3 v -
3 D7 RST 10H ;
3 5.
3 3E2A LOOP LD A,42
3 120 CLS
3 100 DEF FN g(x,y,p,q) = USR 60700
3 320 DATA 0, 9, 86, 1, 8
3 310 DATA 42, 11, 92, 1, 4
3 300 REM ***
3 90 REM ***
3 RRCA ;
3 ADD HL,HL ;
3 ADD HL,DE ;
3 CP A ;
3 100 DEF FN f(x,y) = USR 61500
3 SRL A
3 LD L,A
3 ;(
3 ;"
3
3
2 ~astx9fajla9
2 zapisatx9sektor
2 zapisatx9dorovku
2 vp$p$p$p$pHpHpHpHplplplp
2 s~itatx9dorovku
2 stro~n=9bukwy
2 sistemnoj9dorovke
2 sektorow>>
2 podtwerdite9
2 perezapisatx
2 p@p@p@p@p@p@p@p
2 p$p.p8pBpLpVp`pjptp~p
2 nowye_dorovka
2 najti9fajl
2 hhhhhhhhhhho`
2 g$="Step":
2 g$="Cursor":
2 _zamena9diska
2 _wwod9komand
2 _wozwrat9w9
2 _stranica9wpered
2 _stranica9nazad
2 _perekl`~enie9zagl=
2 _perekl`~enie9revimow9
2 _informaciq
2 ^islo9NE9bolx{e
2 Zapustitx9fajl
2 Zapisatx9izmeneniq
2 Zapisatx9dorovku
2 Zapisatx99sektor
2 X X X X X X X
2 Wyjti9iz9procedury
2 Wy9uwereny9
2 Wstawxte99prinima`}ij9dis
2 Wstawxte99kopiruemyj99dis
2 Vp$p$p$p$pHpHpHpHplplplp
2 S~itatx99dorovku
2 Swobodno>>>>>
2 Stertyh>>>>>>>>
2 Steretx9mark
2 S=_Peterburg
2 Perwaq9swobodnaq9dorovka>>
2 Pereme}enie9kursora_klawi{ami9kursora
2 Pereimenowat
2 POCMOTP KAPTOTEK
2 Ob?em9fajla9iz
2 O9[9I9B9K9
2 Nowaq9mask
2 Nesankcionirowannaq99kopi
2 Ne9TOT9disk99
2 Na~alo_dor=
2 Na9diske9NET9takogo9fajla
2 Mnogo9sektoro
2 Mnogo9fajlo
2 Mark=9fajlow
2 Kopirowatx9s9
2 Kontrolx9diskow9
2 Konec9_dor=
2 Fajlow>>>>>>>>>
2 Fajlow>>>>>
2 Fajl99su}estwuet
2 Dlina9999fajla>>
2 Disk-Doctor
2 CONVER Comander
2 Adres9zagruzki>>
2 @=Kowalewskij
2 ;--------------------
2 ;************************
2 ;***********************
2 ;*****************
2 ;"sprAjtoB"
2 ;"formAtE rEdAktorA"
2 9zapisatx99katalog
2 9stertyh>>>
2 9prerwatx9operaci
2 9ignorirowatx9fajl
2 9Konec9programmy9
2 9@=Kowalewskij
2 999swobodnoj9zone
2 6p$p$p$p$pHpHpHpHplplplp
2 256128 48:
2 22,12,8,148,149
2 22,11,8,146,147
2 22,10,8,17,2,16,7
2 . c. 109...111).
2 . 109...111.
2 .
2 ,22528+256
2 ,16384+2048
2 ,," 3A
2 ++++++++++
2 *REFLECTION
2 'True Vid.'
2 'Inv. Vid.'
2 'Graphics'
2 'Caps Losk'
2 #"a\"c\"e\!
2 "S\"K\"U\#"Y\
2 """"""""""""""""""""
2 y 000?????
2 RST 10H
2 RANDOMIZE USR,
2 PRINT_FP
2 INK, PAPER, BRIGHT
2 FN h(x,y,h,v).
2 FLASH (0
2 BRIGHT 8
2 BRIGHT (0
2 BORDER n
2 A,E,D,C,B.
2 7,6,5.....0.
2 64000+256*n,
2 22528
2 - A8H=168 DEC.
2 (v+y<24).
2 (h+x<32);
2 X X
2 HEX'e),
2 1111 1111 = 255
2 0110 0000 = 96
2 X X X X X X
2 SCR_FN.
2 Original idea........50%
2 OUT,
2 HL
2 Coding...............50%
2 CONTROL
2 BRIGHT
2 62500 MESSAG DEFL
2 60698 COORD DEFW ;
2 57768 23 INC HL ;
2 57767 1D DEC E ;y-1
2 57766 5E LD E,(HL) ;
2 32
2 23770 121 -
2 23769 44 -
2 23762 120 -
2 17H.
2 1
2 X
2 ~~~~~~~~~~~~~~~~
2 ~~~~~~~~~~~
2 ~~~~~~~~
2 l -
2 h,l < 255.
2 D7 RST 10H ; PRINT AT ...
2 7B LD A,E
2 40 NEXT i
2 4.
2 3E16 LD A,16H
2 213C5C LD HL,TVFLAG
2 210 NEXT i
2 200 PAUSE 0: CLS
2 190 NEXT j
2 18FB JR LOOP ;
2 180 NEXT j
2 1.4.2.
2 1.2.2.
2 1.
2 -
2 XOR B: b7 b6 b5 b4 b3 b2 b1 b0
2 180 LET y1=88
2 150 LET ad=s*PI/128
2 140 LET a=0
2 130 LET s=1
2 130 CLS
2 120 CLS
2 110 DEF FN j(x,y) = USR 57700
2 100 DEF FN k(x,y,p,q)=USR 57600
2 (
2 MASK_T (23696 = 5C90H);
2 MASK_P (23694 = 5C8EH);
2 490 DATA 31, 31, 31, 31, 130
2 480 DATA 103, 123, 230, 7, 183
2 330 DATA 0, 9, 94, 237, 83
2 230 DATA 0, 9 94, 237, 83
2 220 DATA 0, 9, 86, 1, 8
2 210 DATA 42, 11, 92, 1, 4
2 200 REM ***
2 190 NEXT n
2 170 NEXT j
2 160 PAUSE 100
2 150 NEXT n
2 140 PRINT "
2 130 FOR n=0 TO 703
2 100 REM ***
2 100 DEF FN c(x,y,h,v,c,b,f)=USR 62600
2 100 DEF FN h(x,y,h,v) = USR 60400
2 90 REM
2 530 DATA 9, 94, 237, 83, 82
2 CALL SCR_1 ;
2 RLA ;
2 LD B,03 ;
2 CALL TEST_NIBBLE ;
2 CALL TEST_HALF ;
2 ADD A,A ;
2 0...2 0...7 0...7 0 ... 31
2 7 6 5 4 3 2 1 0
2 (
2 OUT 254,1
2 LD B,A
2 AND 07
2 ~~~~~~
2 XOR E
2 LD A,E
2 AND 18
2 ~~~~~~~
2 XOR E
2 0...23 0 ... 31
2 X
2 ;168
2 ;1
2 ;-
2
2
2
2
2
1 }e smotrite (i slu{ae
1 ||xxttppllhhdd``
1 |ksta klassaq
1 |<<D8xDDDDD<
1 zywa` dalx}e: w |tom izwra{
1 zy=zy+y(s):
1 zx=zx+x(s):
1 za malym - k
1 zApisAtx sprAjty"
1 zApisAtx fAjl B"
1 zAgruzitx fAjl B"
1 zAdAniE oknA. pri udEr-"
1 yy=yx-zy*w(n):
1 yxvVe#&@%A
1 yx=y-zy*y(v0):
1 yx=y-zy*(y(v0)+y(u8)):
1 yx=(a2*n+s*a3)*n+a1:
1 yx=(a1*n-s*a3)*n+a2
1 yr=(yy-y)*
1 y=yx-y(u9)
1 y=k+y-y(u9):
1 y+b<(yp-py+b)*d
1 y*Gj"bj:Zj2dj:[j2ej
1 xy=x+zx*x(v0):
1 xy=x+zx*(x(v0)+x(u8)):
1 xx=xy+zx*v(n):
1 xx=xx+k*i:
1 xx=xx+(n=u8):
1 xr=(xx-x)*
1 xco txmy ', qwlq`}u`
1 x=xy+x(u9):
1 x=j+x+x(u9):
1 x= y= D
1 x+(xp-px+b)*c>w3
1 x(t)+a7-b:
1 x$=g$+",y":
1 x$=g$+",x":
1 x$=g$+",r":
1 x$=g$+",l":
1 x$="no. of pixels":
1 x$="no. of chars":
1 x$="new attr":
1 x$="change":
1 x$="Vert. Radius":
1 x$="Turn Angle":
1 x$="Start Angle":
1 x$="Space":
1 x$="Rotation":
1 x$="Radius":
1 x$="Pic No.":
1 x$="Pic Mode (p,a,c or d)":
1 x$="No. to save":
1 x$="Mark":
1 x$="Horiz. Radius":
1 x$="Arc Angle":
1 ww=yx*a1-xy*a3:
1 ww=-i*r-j:
1 ww-a1/u8+j:
1 written in TASM, ofcoz).
1 wgfVUDDDCDDTUffvw
1 w1+" saved":
1 w1+" is the wrong type":
1 w$(z)=" ":
1 w$(a)=" ":
1 w |tojpr@r
1 vv=xy*a2-yx*a3:
1 v9,u6;k$(en):
1 v8,v1;bx;",";
1 v4,u5;k$(ed);
1 v4,n0;q$(b+
1 v3,w0;q$(u9+k);
1 v3,v8;"r,l =";r;",";l;
1 v3,s;"I P B F ";
1 v3,n0;k$(s-
1 v2,v0;"COLOUR";
1 v2,u6;x;",";y;
1 v1,v3;"0. Main Menu":
1 v1+s*i,v3;i;". Load ";l$(i):
1 v0,v5;"SAVE";
1 v0,v5;"LOAD":
1 v0,m4;j$(p*p1+b);
1 v(n),w(n):
1 ustAnoBkA zAdErvki"
1 ustAnoBkA proiz-"
1 ustAnoBkA poslEdo-"
1 ustAnoBkA fonA"
1 udAlitx sprAjt"
1 u&u2u"u4ypi|
1 tut nedawno poqwilasx odna
1 t,v3;"1. ";a$;
1 t,u6;ss;",";tt;
1 stErEtx sprAjt"
1 slEduqwij sprAjt"
1 skroll kuda-
1 screen window
1 s,m4;j$(p*p1+b);
1 rolling sprAjtA"
1 rolling oknA"
1 rEvim rEdAKtorA"
1 rAbotA s sprAjtom"
1 rAbotA s oknAmi"
1 rAbotA s fAjlAmi"
1 r=r-x(v2)*
1 r#r-r7rArKrUr_rirsr}r
1 r r r6r&x:r8r r`rfr
1 qsa`}aq. o
1 q zakolebal
1 q wse e{e demiurg ASH i wy0
1 proisXodit"
1 programmistP#
1 problema w tom,!
1 priwetstwu
1 primEhAnia:":
1 prEdyduwij sprAjt"
1 pppppppppp
1 pozwonitx psihiat
1 pokAzAtx sprAjt s mAskoj"
1 pokAz sprAjtA"
1 pod uglom ply
1 pe^atlenie ^to ot
1 pNpNp`p`prprpJ
1 p0p0q(p@q8
1 p,a,c or d
1 p*p3p<pH@Q
1 p*p0p<pHpN
1 p(p(pPp(pPpPpxpPpxpxp
1 p$p,p8p@@L
1 p p(p8p@pHpPp`phpppxp
1 p (0xp5p=pMpUp] e
1 ottuda ws` skanirowannu` IBM'
1 otrAvEniE OknA"
1 otrAvEniE Bokrug gori-"
1 otmEnA izmEnEnij"
1 osnoBnoE mEnq":
1 okonhAniE"
1 o2]j2^j2aj2`j<2
1 o,m3;y;" "
1 o,a;j$(p*p1+b);" ";x;" ";
1 o rEdAktorE"
1 nyE punkty poslE zAdAnia oknA"
1 nameless*Gj
1 nameless
1 na SPACE#%
1 n=s*a1+s*a3+m:
1 n0,v8;"step=";aa;",";bb;
1 n0,v3;"2. ";:
1 n+b,v5;x(n);
1 n+b,v5;x(n):
1 n+b,v5;d$;
1 n+b,u5;y(n):
1 n+b,m3;e$;
1 my tAkvE movEm sdElAtx dla BAs "
1 mulxtiplikAcia"
1 mjgda^[XUROMJGDA?<9742/-+(&$"
1 migAniE (Bkl/Bykl)"
1 majka kalinina, to
1 m4+"0123":
1 m3,v6;n;",";
1 m3,v6;"colour":
1 m3,v3;"3. ";b$
1 m3,n0;q$(v0+
1 m+" characters":
1 m 'LORD OF THE RINGS' BY TOLKIEN. knig
1 lu~}e ih. VA
1 lenxkaq, ~umuru
1 left rightup down whole
1 l=x(t)+a7-b:
1 l=x(t)+a7-b
1 l=o(s*z+r+u8+
1 l,r,u or d
1 kopiroBAniE sprAjtA"
1 kopiroBAniE OknA"
1 klABiwi uprABlEnia"
1 kAtAlog diskA"
1 k=d*d/c/c-b:
1 k+xx+yy+xy+c+yx+h+oc+d+i+j+m+l=n:
1 izmEnEniE rEvimA"
1 ispolxzowanP1
1 iniciAlizAcia"
1 iniciAlizAcia movEt proizBoditx-"
1 informaciq dl
1 inBErsia sprAjtA"
1 inBErsia oknA"
1 imq kotoroj
1 i$=g$+" ":
1 i$="Please try and save it again":
1 i$="Please try again":
1 i$="Please rewind the tape to verify":
1 i$="Maximum "+
1 i$="Invert
1 i$="Do you wish to overwrite (
1 h,l < 255.
1 h$=h$+","+u$(n+b):
1 h$=h$+" ("+
1 h$=c$+" has not been verified":
1 h$="window/screen
1 h$="print string":
1 h$="filename":
1 h$="Store is being used for "+l$(m):
1 h$="Enter "+h$:
1 h$="Currently":
1 h$="Completed":
1 graphics software
1 grafiku i muzy
1 goworim o muzyke0B
1 g$=g$+l$(n):
1 g$="block size":
1 g$="Swap Colour":
1 g$="Set Print":
1 g$="Set Colour":
1 g$="Set "+g$:
1 g$="Scroll"
1 g$="Scroll Attr":
1 g$="Save "
1 g$="Reverse":
1 g$="Print block":
1 g$="Pic No.":
1 g$="Pic Mode":
1 g$="Merge":
1 g$="Mark/Space":
1 g$="Magcopy":
1 g$="Load ":
1 g$="Last Plot":
1 g$="Ellipse":
1 g$="Delete ":
1 g$="Cover":
1 g$="Coords. "+
1 g$="Circle":
1 g$="Change Colour":
1 g$="Brush":
1 ffnnvvfqHt
1 fReimport ZX AS
1 eras=eras-1
1 eras=eras-(a$(i,1
1 eras=eras+(a$(i,1
1 ee, A SAM teper
1 ece on kru
1 demiurg ASH
1 d=yp-py+b:
1 d.16 kw.73%q
1 cBEt hErnil"
1 cBEt fonA"
1 c>(w3-x)/t
1 c=xp-px+b:
1 boot BU(U()
1 blagodar`Q
1 b,n0;"mode:";j$(p+b);
1 b,a;d$;d$;d$:
1 b*&]"-a!/a"&]>
1 b$=b$+"n)"
1 arkostx (Bkl/Bykl)"
1 aLOOKBOOTB
1 a=a+s*(k-1
1 a3=vv*ww*k:
1 a2=ww*ww*k+b:
1 a1=vv*vv*k+b:
1 a,v6;j$(p+b);
1 a,a;" ";d$;d$;
1 a$=s$(s)+t$(n):
1 a$=g$+" too thin":
1 a$=a$+" too big":
1 a$=a$+" stored":
1 a$=a$+" copied":
1 a$=a$+" "+
1 a$="top right"
1 a$="no room"
1 a$="lower left":
1 a$="copy "+s$(s):
1 a$="01234":
1 a$="0123"+
1 a$(x)=a$(y):
1 a$(x)=a$(y)
1 a teperx q budu goworitx bez
1 ``ddhhllppttxx||
1 _____ X________
1 Yp$p$p$p$pHpHpHpHplplplp
1 Y. NOT BAD,YEAH! )
1 X___X____ X_X_X
1 X_X_X_______X___
1 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1 X X X X X X
1 X X X X X
1 X X X X
1 X OR CS+X=DIR SHOW
1 X X X X X
1 WOULD ONLY
1 WINDOW MENU":
1 WINDIoW....
1 WDO YOU REALLY
1 WANT TO QUIT?
1 W AND R WORKS WITH CURRENT
1 VIEW.........
1 V 3.02R 512K
1 V 3.02R 128K
1 TOP (wpro~em esli ubra
1 TO VELSOFT AND JMS!_H
1 TI-CHRIST,!
1 THE S P R I T E M E N T
1 THE FUCKINGSA
1 THANKS TA/
1 TEN BY ME,
1 TAPE ERROR
1 T","K-KOCM L-
1 Size Y :000
1 Size X :000
1 Set values
1 Set device
1 Scale Inc.
1 Sam 10.96 $
1 SURE DELETE?
1 STUDIO COMPILER
1 SS+W <> -
1 SS+Q <= -
1 SS+I -
1 SS+Enter -
1 SS+E >= -
1 SPRITEMENT 4.3 BY VAG 04.07.93 FILE: T: S: A: (V)IEW(X)CAT(B)ACK(N)EW(SSF)EDIT(W)RITE(R)EAD(S)AVE(L)OAD(12)<->
1 SPRITE.....
1 SPRITE MENU":
1 SPRITE EDITOR v2.1
1 SPRITE EDITOR V2.1
1 SOUND TRACKER COMPILATION OF POW
1 SM'a. WARNING!!
1 SET VALUES
1 SET DEVICE..
1 SET DELAY....
1 SAVE FILE:
1 SAVE FILE...
1 SAVE DATA...
1 SA software productions :
1 S.T.PRO 1996 COMPILATION OF SANDMAN BY DEMIURG
1 S PART YOU MAY SEE SC
1 S 'MANOWAR',
1 S & MUSIC W
1 Rotation =
1 Rot. Inc. =
1 Reset 1 to 8
1 Reset 0 to 9
1 RESTORES THE DISK
1 RE-READ TEXT
1 Qelgr6.txC
1 QWERTPOIUYASDFG
1 QUIT.......
1 QAOPSPC/KEMPSTON
1 QAOP,SP ili kEMPSTON
1 Press no. of option
1 Picture ElementsUDGs Screen g
1 Picture no.=
1 P\=]Z(boot BU(U()
1 PROGRAMMED DRAW PARAMETERS
1 PRINTADD COMM DIFF
1 PRINT DECIMAL
1 PRESS ANY KEY":
1 PRESS A KEY
1 POBKA -4":
1 PIDERGROUP),
1 PARTS OF SPRITEMENT:
1 PAMM B KAPTOTEKE ";n:
1 [email protected]
1 OhistkA OknA":
1 Official distributer
1 OVERWRITE ?
1 OTHOCTb n/216d. n=";q:
1 OOM-METAL GROUP. YOU MU
1 OMMA_CONTR
1 OHOK(OT 3
1 OFF ON TO FROM UNSETSET
1 OF SCREEN (UPPER 16 LINES).
1 O HOMEPA?";N1
1 O CTPOK B CTPAH
1 Normal order
1 NORMAL ORDER.
1 NO GRAPHICS
1 NENTER TO RETURN
1 Master Assembler v1.0 for 128k Speccy only!
1 MY PROGS (1-3),
1 MUSIC-MACKER!
1 MPEX ALBUM (6).MUSIC WHICH
1 MOVE SPEEDS :
1 MNB!@#$%_)('&
1 MAY SEE EXCEPTIONAL EFFECT.
1 MAX IWAMOs!
1 M$="3563568568:68:;8:;8:68563525"
1 LOAD FILE...
1 LISTEN IT.
1 LINE:0000 COL:00 F:L TEXT:0000/FFFF BUF:0000/4000 FILE:........
1 LEONARDO error trap.
1 L AND S WORK WITH FILES.
1 Initialize
1 IS IMPOSSIBLE
1 IS IMPOSSIBLE
1 INSERT DISK
1 INITIALIZE.
1 INITIALIZE mENU":
1 INITIALIZE
1 IN HIS PART
1 ICOLOR PICS & BORDER AY-INDICATOR.
1 I LOVE MY DU
1 HTEP -6" :
1 HEAR WROTE
1 HCIAQK!=9N;"(
1 HAVE BEEN PROTECT
1 H - 23612).
1 GREETING FROM HELL ! THAT'S AGAIN DEMIURGE ASH WITH MULT
1 GOLDEN DISK
1 GGGGGGGGGGFF
1 GGGGFFFFFF
1 GENTLEMENq
1 Figure table
1 FUCK YOUDOIN' HERE, SHITMAN?
1 FRIEND: DYA
1 FILE.......
1 FILE MENU":
1 FILE ABSENT
1 FIGURE TABLE
1 FFFFFFFFFF
1 Esli zAintErEsoBAlisx,to zBonitE"
1 Edit sprite:000 Quantity:000
1 Edit order
1 EXECUTE......
1 ENTER continue : SPACE abort
1 ENTER FILE NAME :
1 EDIT ORDER...
1 E -2"
1 Draw table
1 Deznya by Dyad
1 DISKEDMAX IWAMOTO
1 DISK HEAD POSITION.
1 DISK ABSENT
1 DISK ERROR
1 DESTOY, POSSIBLY?
1 DEMIURGE ASH
1 DELIRIUM: R!B
1 DELAY(1-15):
1 DEFW - DW; DEFS - DS.
1 DEATH-METAL
1 DDD<D|D@pDD
1 D@@Q@QDQDQ
1 D=92@up3@3
1 D<D<DDDDD<<
1 D8H8<8H8DDD
1 D-distchor
1 Created by
1 Coords. to
1 CURSOR PLOT UNPLOT INVERT PICTUREMAGCOPYFIGURE COLOUR PRINT COLCOPYMAGCOPY
1 CS+L & CS+S SAVES/LOADS TWO PART
1 CS+9 GRAPH -
1 CS+8 ===> -
1 CS+7 || -
1 CS+6 \/ -
1 CS+5 <=== -
1 CS+4 I.VIDEO -
1 CS+3 T.VIDEO -
1 CS+2 C.LOCK -
1 CS+1 EIDT -
1 CS+0 DELETE -
1 CREDITS :
1 CREATED BY FDI"
1 CKA -8":
1 CKA -9"
1 CK HOMEP ";h$:
1 CK -7":
1 CATALOGUE...
1 Bybor nAkopitEla"
1 BstABitx sprAjt"
1 Brush mode=
1 Belgr5.txC
1 Background
1 BDDDD@DDHDD
1 BACKGROUND...
1 B8x<D8x8D<<
1 B mEnq rAbotAET kAk
1 AUTHOR MR.VAG THANKS FOR USING
1 ATb?(0-HET)"
1 ANIMATION..
1 ANIMATION MENU":
1 AND PRESS A KEY
1 AND LEFT<->RIGHT MOVING.
1 ABOUT......
1 A B-ABTO","C-C
1 ?!) DELIRIUM MULTIDEM@p
1 ? / Yes,No /";:
1 <x8888D8DDDDDDD>~<
1 <T<xTDDDD><<<
1 <T8xTrDDDDDDDDDDD<
1 <NONE>
1 <B|T|DDDD8
1 <<DDD<<xx(8|
1 <<D8xDDDDDDDDDD<<
1 ;j$(bd+s,b):
1 ;================
1 ;===============
1 ;---------------
1 ;********************
1 ;* bit 0- Save 1=Yes
1 ;* BIG FONT (Ballbr.2) *
1 ;* #3D13 EMMULATION
1 ;"~PROGRAMS BANK~ v9.4";
1 ;"zontAlxnoj ili BErti-"
1 ;"tElxnosti prokrutki"
1 ;"kursorom nA linzE i B mEnq"
1 ;"kAlxnoj osi"
1 ;"izmEnEniE rAzmEroB oknA"
1 ;"INSERT PAPER
1 ;"File ~bank~ not found":
1 ;"CURSOR";
1 ;"CORRECTED BY";
1 ;"C 19-00 do 21-00"
1 ;"BOlxnoj poslEdoBA-"
1 ;"BCTABbTE
1 ;"BAtElxnoj prokrutki"
1 ;"(mAskA/sprAjt)"
1 ;"(Bykl/poln/wAXm)"
1 :djT_:ej=G
1 :SPRITE EDITOR v2.1
1 :HZH[H\H?^%]V
1 : a7 a6 b5 a4 b3 a2 a1 a0
1 : a7 a6 a5 a4 a3 a2 a1 a0
1 : PRINT INK 6; PAPER 1; AT 10,12; "ZX-Spectrum" .
1 : DEF FN o(h,l) = USR 56500
1 : DEF FN n(h,l) = USR 56600
1 : DEFB - DB;
1 : 22528 + 32*Y + X.
1 : 0 10101010 00000000
1 9{~2gz#~2u
1 9is a professional
1 98,64,50,0
1 9,5,4,2,2,1,0,0
1 9 RET ;
1 88DT8x8xDDDDD<
1 81,81,144,0
1 7!?l"%!`=9
1 67,64,127,0
1 64,128,0,0
1 5B LD (BANK_M),A;
1 58,10,178,0
1 5544322100/..-,,
1 5 CHANGING ALGORITHM OF MOVEMENT
1 46000;2300
1 4-5) AND A COV
1 4- DosVer 1=5.03 *
1 33,33,17,17,8
1 32,21,0,#FF
1 32,159,160,161,#FF
1 3.znAhEnia pEriodA ABtopoBtorA i"
1 3.VIEWER V
1 3.SS+LEFT/RIGHT
1 3. Load graphics
1 2elgr4.txC
1 255,255,192,223
1 255,0,255,255
1 254,2,194,250
1 252,2,130,132
1 251,3,255,255
1 223,192,255,255
1 22,7,13,16,1,17,7
1 22,20,1,16,6,17,0
1 213,85,88,0
1 204,168,166,0
1 201,81,145,0
1 2.FIRE+UP/DOWN
1 2.EDITOR SS+FIRE
1 2.10.95.
1 2. Save graphics
1 2- ErCod 1=ReOnly*
1 1996 KOVROV CITY
1 1993 MOSCOW":
1 194,2,254,0
1 170,170,146,0
1 17,33,163,0
1 162,163,164,#FF
1 154,155,156,157
1 150,151,152,153
1 148,21,1,16,1,17,0
1 147,21,1,16,1,17,0
1 144,160,32,64
1 144,144,80,0
1 132,136,136,16
1 127,64,67,95
1 1234509876qwertpoiuyasdfg
1 1.kopiroBAniE sprAjtA B mAsku"
1 1.UP/DOWN
1 1.PICTURE OUT
1 1. Create graphics
1 1- First char
1 1 AND 2 MOVE SPRITE <>
1 0,2,165,81
1 0,192,164,170
1 0,144,80,89
1 0,128,27,42
1 0,128,213,153
1 0,11,9,145
1 0,1,149,89
1 0,0,18,171
1 .c.109...111)
1 .235-240;
1 .227; N 5,6, 1992
1 .145, 146)
1 .109...111
1 .........700
1 ...........109
1 ..................64
1 ..................10
1 ...................9000
1 .....................112
1 .....................1023
1 .......................165
1 .........................170
1 ............................188
1 ............................145
1 .............................184
1 ..............................173
1 ...............................206
1 .................................201
1 ...................................152
1 .......................................126
1 ........................................208
1 .........................................137
1 ............................................ 7
1 ............................................ 4
1 ....................................... 79
1 .................................... 51
1 .................................... 9
1 ....................................
1 .................................. 82
1 .................................. 78
1 ................................. 82
1 ................................. 55
1 ................................ 86
1 ................................ 38
1 ............................... 81
1 .............................. 80
1 ............................. 83
1 ........................... 83
1 ........................... 72
1 .......................... 7
1 ......................... 63
1 ......................... 53
1 ......................... 47
1 ..................... 56
1 .................... 61
1 .................... 46
1 ................... 51
1 .................. 38
1 ................. 89
1 ................. 33
1 ............... 19
1 ...............
1 ............. 14
1 ............ 9
1 ............
1 ........... 78
1 ........... 30
1 ...........
1 ......... 17
1 ........ 98
1 . poslE zAprAwiBA-"
1 . ostAlx-"
1 . c.109...111)
1 . c.109...111 ).
1 . DRAW x,y,z -
1 . DRAW x, y -
1 . 32*8=256
1 . 109...111?
1 . 8). INK n
1 . 00???000
1 . 000???00
1 . 0000???0
1 . "
1 .
1 .
1 .
1 -uprABlEniE"
1 -PLANKTON-.
1 -------------------------------------------
1 -(2 3HAKA)";h$:
1 -
1 ,v2;"Press no. of option":
1 ,u6;n;",";
1 ,buf+2048+245
1 ,buf+2048+227
1 ,," KATA
1 ,," CTAH
1 ,," COPT
1 ,#D8 ;5.03
1 ,#8E ;5.01
1 ," bright(0-1)",0
1 ," paper(0-7)",0
1 ," flash(0-1)",0
1 , - y < 22);
1 , - x < 32);
1 , - 2v + y < 32);
1 , - 2h + x < 32);
1 , INVERSE
1 , 1991.).
1 ,
1 +Horizontal
1 +5+5+5kVjV
1 +*))('&%%$#""!
1 +"W\#"S\"K\6
1 + - 89 -
1 + - 88 -
1 + - 208 -
1 + - 207 -
1 + - 206 -
1 + - 205 -
1 + - 204 -
1 + - 203 -
1 + - 202 -
1 + - 201 -
1 + - 200 -
1 + - 199 -
1 + - 198 -
1 + - 197 -
1 + - 196 -
1 + - 195 -
1 + - 194 -
1 + - 193 -
1 + - 192 -
1 + - 191 -
1 + - 190 -
1 + - 189 -
1 + - 188 -
1 + - 187 -
1 + - 186 -
1 + - 185 -
1 + - 184 -
1 + - 183 -
1 + - 182 -
1 + - 181 -
1 + - 180 -
1 + - 179 -
1 + - 178 -
1 + - 177 -
1 + - 176 -
1 + - 175 -
1 + - 174 -
1 + - 173 -
1 + - 172 -
1 + - 171 -
1 + - 170 -
1 + - 169 -
1 + - 168 -
1 + - 167 -
1 + - 166 -
1 + - 165 -
1 + - 164 -
1 + - 163 -
1 + - 162 -
1 + - 161 -
1 + - 160 -
1 + - 159 -
1 + - 158 -
1 + - 157 -
1 + - 156 -
1 + - 155 -
1 + - 154 -
1 + - 153 -
1 + - 152 -
1 + - 151 -
1 + - 150 -
1 + - 149 -
1 + - 148 -
1 + - 147 -
1 + - 146 -
1 + - 145 -
1 + - 144 -
1 + - 143 -
1 + - 142 -
1 + - 141 -
1 + - 140 -
1 + - 139 -
1 + - 138 -
1 + - 137 -
1 + - 136 -
1 + - 135 -
1 + - 134 -
1 + - 133 -
1 + - 132 -
1 + - 131 -
1 + - 130 -
1 + - 129 -
1 + - 128 -
1 + - 127 -
1 + - 126 -
1 + - 125 -
1 + - 124 -
1 + - 123 -
1 + - 122 -
1 + - 121 -
1 + - 120 -
1 + - 119 -
1 + - 118 -
1 + - 117 -
1 + - 116 -
1 + - 115 -
1 + - 114 -
1 + - 113 -
1 + - 112 -
1 + - 111 -
1 + - 110 -
1 + - 109 -
1 + - 108 -
1 + - 107 -
1 + - 9 -
1 + - 8 -
1 + - 7 -
1 + - 6 -
1 + - 5 -
1 + - 4 -
1 + - 23 -
1 + - 22 -
1 + - 21 -
1 + - 20 -
1 + - 19 -
1 + - 18 -
1 + - 17 -
1 + - 16 -
1 + - 15 -
1 + - 14 -
1 + - 13 -
1 + - 12 -
1 + - 11 -
1 + - 10 -
1 + - 99 -
1 + - 98 -
1 + - 97 -
1 + - 96 -
1 + - 95 -
1 + - 94 -
1 + - 93 -
1 + - 92 -
1 + - 91 -
1 + - 90 -
1 + - 106 -
1 + - 105 -
1 + - 104 -
1 + - 103 -
1 + - 102 -
1 + - 101 -
1 + - 100 -
1 + - 87 -
1 + - 86 -
1 + - 85 -
1 + - 84 -
1 + - 83 -
1 + - 82 -
1 + - 81 -
1 + - 80 -
1 + - 79 -
1 + - 78 -
1 + - 77 -
1 + - 76 -
1 + - 75 -
1 + - 74 -
1 + - 73 -
1 + - 72 -
1 + - 71 -
1 + - 70 -
1 + - 69 -
1 + - 68 -
1 + - 67 -
1 + - 66 -
1 + - 65 -
1 + - 64 -
1 + - 63 -
1 + - 62 -
1 + - 61 -
1 + - 60 -
1 + - 59 -
1 + - 58 -
1 + - 57 -
1 + - 56 -
1 + - 55 -
1 + - 54 -
1 + - 53 -
1 + - 52 -
1 + - 51 -
1 + - 50 -
1 + - 49 -
1 + - 48 -
1 + - 47 -
1 + - 46 -
1 + - 45 -
1 + - 44 -
1 + - 43 -
1 + - 42 -
1 + - 41 -
1 + - 40 -
1 + - 39 -
1 + - 38 -
1 + - 37 -
1 + - 36 -
1 + - 35 -
1 + - 34 -
1 + - 33 -
1 + - 32 -
1 + - 31 -
1 + - 30 -
1 + - 3 -
1 + - 29 -
1 + - 28 -
1 + - 27 -
1 + - 26 -
1 + - 25 -
1 + - 24 -
1 + - 2 -
1 *bj:ejGO:dj
1 *START TAPE
1 *START TAPE
1 *SPRITE INSERTING
1 *SPRITE DELETING
1 *FILE EXISTS
1 *ANIMATION
1 ********************************":
1 ********************************"
1 )Horizontal
1 )GMR Ltd. Garbuzov
1 );a$(a+l,15
1 );" ";a$(a+l,11
1 ).............................. 92
1 )........................... 86
1 ). 0 < x < 255 ; 0 < y < 175.
1 ) Garbuzov Alex
1 (i*i+j*j):
1 (c) Garbuzov Alex MOCKBA 1992
1 (buf+2048+244),
1 (buf+2048+229),
1 (buf+2048+228),
1 (buf+2048+225),
1 (a-u,1-774)
1 (MasTer Debuger).
1 (EXTEND) osnoBnoE MEnq"
1 (965 bytes) *
1 (095) 490-14-26
1 ((n-a)/k)+((n-a)/k
1 ((n-a)/k))
1 'CONVER-Utility' & Y.Kovalevsky
1 '+'P'+'Q'+'A'+Space+Enter).
1 ''" EXTEND MODE-B
1 #E0,#D8,#D8,#00
1 #C0,#D8,#70,#00
1 #BC,#B0,#1E,#00
1 #60,#60,#60,#00
1 #0C,#0C,#0C,#00
1 #01,#19,#0F,#00
1 #00,#3F,#0C,#0C
1 #00,#0F,#18,#0F
1 #00,#00,#D8,#D8
1 #00,#00,#70,#D8
1 #00,#00,#6C,#76
1 #00,#00,#1C,#32
1 #"a\"c\"e\>82
1 "spredit2"
1 "sa pri pomowi oknA
1 "qtsa mAskA,cBEt i kolihEstBo."
1 "posrEdstBEnnym zAdAniEm rAzmE-"
1 "elgr3.txC
1 "drivprof"
1 "RESTORES THE"
1 "NO 128K MEMORY!":
1 "NAME",Y$:
1 "NAME",U$:
1 "KAPTOTEKA
1 "INSERT DISK"
1 "HAVE BEEN"
1 "Alex MOCKBA 1992"
1 "AND PRESS
1 "0)030!0,0" 8
1 ","*-FX128 ",
1 "(c) Garbuzov "
1 "(4!.cpopxp
1 """" """"
1 " READ ONLY !"
1 " PROTECT"
1 " PROGRAM"
1 " DISK ERROR!"
1 " (N12, 1991
1 " (N1, 1991,
1 " (INK 9).
1 " (INK 8)
1 " ink(0-7)",0
1 " B KAPTOTEKE ";n;"
1 " HA
1 " ";G$;:
1 !LOAD FILE:
1 }p5p=pMpUp] eP
1 zAdEPvki pErEd ABtopoBtorom"
1 y (0...175) -
1 x,y,p,q,
1 x, y, a.
1 s nadpisx`: zdelal simen
1 progrAmmy:
1 obra}ajtes
1 n (n=1...4):
1 n (0...9).
1 movno ustAnoBitx B
1 min-0.5max
1 dAET KombinAcia
1 b7b6b5b4b3b2b1b0
1 address -
1 a7a6a5a4a3a2a1a0,
1 a*PI/180.
1 ZX-Spectrum
1 ZX-SPECTRUM.
1 Y-CTPAT","Z-
1 XOR,AND,XOR
1 WARNING!
1 W-BOEH","G-
1 VARS (23627 = 5C4B).
1 V 1.08!`1
1 Thanks to Rst7 for TASM 3.0 (MASM
1 TVFLAG (5C3C = 23612)
1 TVFLAG (5
1 TIR-NA-NOG, DUN DARACH, MARSPORT
1 TEST_NIBBLE
1 TEST_HALF
1 TAB_CONTROL -
1 TAB_A (0AC3H=2755).
1 TAB, AT y,x
1 TAB n (n=0...31)
1 T-TPEXM","X-
1 T S O I
1 Sinclair) -
1 S_SCRN_LP.
1 S_SCRN_LP
1 S_SCRN$_S
1 STS (v3.2 or v3.3) or MTD
1 STK_TO_BC.
1 STK_FETCH,
1 STK_FETCH
1 STACK_BC (CALL 2D2BH = 11563).
1 STACK_AEDCB,
1 SEED (23670=5C76H),
1 SCREEN$.
1 SCREEN$ (Y,X)
1 SAM ON OUR MIDNIGHT
1 RST 10H.
1 RST 10H -
1 RST 10H.
1 RST 10H,
1 RL (HL).
1 RESTORE USR, PRINT USR
1 READ ONLY !
1 RARE INFORMATION -
1 RANDOMIZE,
1 RANDOMIZE USR
1 RANDOMIZE FN m().
1 RANDOMIZE FN l(x,y,h,v).
1 RANDOMIZE
1 RANDOMIZE
1 R N H E K P
1 Q M G C
1 P_FLAG (23697 = 5C91H).
1 P_FLAG (23697 = 5C91H).
1 PR_STR_1 (
1 PR_STRING,
1 PRINT_FP,
1 PRINT_FP (2DE3H=11747)
1 PRINT USR "b" -
1 PRINT AT, PLOT x,y,
1 PRINT AT D,E (
1 PRINT AT 5,4; .
1 PRINT #3 "Hello"
1 PRINT #2 "Hello"
1 PRINT - INK, PAPER,
1 PRINT "."
1 PO_MSG (0C0AH=3082)
1 POKE 16385,85.
1 POKE (16384+256),
1 POINT_SUB
1 POINT (x,y)
1 PLOT_SUB,
1 PLOT (60851),
1 PLOT 10,150.
1 PAUSE_1,
1 PAPER...........121
1 PAPER. 00000???
1 PAPER.
1 PAPER, BRIGHT,
1 P-FLAG (23697 = 5C91H).
1 P-FLAG (23697 = 5C91H).
1 Op;@;pOpO
1 OVER 1?
1 OUT_NUM_1.
1 OUT_CODE.
1 OMEGA LTD."
1 MASK_T (5C90H
1 MASK_T (23696 = 5C90H).
1 MASK_T (23696 = 5C90H);
1 MASK_P (23694 = 5C8EH).
1 Ltd. MOSCOW
1 LOAD ""CODE.
1 LEONARDO
1 L F B A D J
1 J -
1 INVERSE,
1 INVERSE n;
1 INPUT, PRINT, LPRINT
1 INPUT "Hello"; A$
1 INK.............116
1 INK, PAPER, AT...
1 INK, PAPER, OVER
1 INK, PAPER, BRIGHT
1 INK, PAPER,
1 INK, PAPER
1 INK (0...7);
1 HOMEP?";N2
1 GUARDIAN' .
1 FP_TO_AEDCB
1 FP_TO_A (2DD5H = 11733).
1 FN o(h,l).
1 FN n(h,l),
1 FN l(x,y,h,v),
1 FN k(x,y,p,q).
1 FN i(x,y,p,q,r,s).
1 FN h(x,y,h,v))
1 FN d(x,y)
1 FN c(x,y,h,v,c,b,f).
1 FN b(x,y,h,v,c,b,f).
1 FN a(x,y,h,v).
1 FN S (),
1 FLASH (0,1).
1 FLAGS (5C3BH = 23611).
1 FLAGS (5C3BH - 23611).
1 FFH (255).
1 FF58H=65368 DEC.
1 FF58H = 65368
1 FE (11111110),
1 FA3CH = 64060.
1 FA1EH = 64030.
1 F:
1 F.
1 DRAW_LINE,
1 DRAW x,y,z
1 DRAW x,y
1 DOUBLE).
1 DISK ERROR!
1 DEF FN l(x,y,h,v) = USR 56700
1 DEF FN S(X,Y) = USR addr,
1 D min+0.5 max
1 D
1 Coming soon from us: MasTer Debuger
1 CREDITS). mov
1 COORDS (5C7D = 23677),
1 CONMIN -
1 COMMA_CONTROL
1 CIRCLE,
1 CHR 13 (ENTER),
1 CHARS (23606 = 5C36H),
1 CHAN_OPEN
1 CAPS SHIFT
1 CALL OUT_CODE,
1 C000H - DAFF
1 BY THE PROGRAM
1 BRIGHT (0,1);
1 BORDER_A,
1 BORDER n
1 BO (OR B).
1 BEGIN...END'o
1 BC', DE' (
1 BANK_M (5B5CH - 23388).
1 BACKSPACE_CONTROL.
1 B - ABS (y),
1 B
1 AT_CONTOL.
1 ATTR_T.
1 ATTR_P 5C8DH (23693).
1 ATTR_P (23693 = 5C8DH),
1 ATTR (Y,X)
1 ASCII -
1 ARTSTUDIO,
1 AND, OR, NOT -
1 A XOR B.
1 A -
1 A
1 : RANDOMIZE FN o(h,l)
1 : RANDOMIZE FN n(h,l)
1 9 - 57 (39H))
1 80H (128)
1 8*32*8=2048
1 7FH (127),
1 7600 H =
1 65(41H) ).
1 63094,63095.
1 63092...63095.
1 63092,63093.
1 62930,62931.
1 62928,62929.
1 62742,62743.
1 62740,62741.
1 62448,62449
1 62143,62144
1 60782 - 60789.
1 60753 - 60777
1 5C99H (23705).
1 5C92H (23698)
1 5C68H (23656)
1 57879).
1 530...560.
1 490 - 510
1 37 (25H).
1 30H (48 DEC).
1 30H (48 DEC),
1 2DE3H (11747).
1 256 X 172.
1 256 (32 X 8)
1 24BAH (9402).
1 24B7 (9399)
1 24*32=728
1 24 X 16
1 23606, 23607 (5C36H)
1 23295) -
1 23295 (5800H - 5AFFH),
1 22E8H (8936).
1 2297H (8855).
1 220...290
1 22 X 8 = 176
1 20H (32)
1 2036H=8246).
1 1FH (31).
1 1F3DH (7997).
1 1A1BH (6683).
1 1993 ShiSoft":
1 1991 KORDIAL";
1 17 TAB_CONTROL
1 16 AT_CONTROL
1 15 OVER_CONTROL
1 14 INVERSE_CONTR
1 13 BRIGHT_CONTR
1 128 (80H).
1 12 FLASH_CONTROL
1 1111 1110
1 110 - 170.
1 11 PAPER_CONTR
1 10 INK_CONTROL
1 0DH (13) -
1 0D6EH (3438).
1 0D6BH (3435).
1 0D ENTER
1 0A9BH (2715).
1 08 BACKSPACE
1 0,1,2... 175,
1 0, 96, 255, 96, 240, 248, 255, 167
1 ...................107
1 ...................
1 . ....................................
1 . (176
1 . 256
1 .
1 -MY DYING BRIDE- THE BEST D
1 - P_FLAG (23697 = 5C91H).
1 - POP AF.
1 - POINT, ATTR
1 - FN e (x,y).
1 - CALL 15EFH (
1 - BORDCR.
1 - ABS (x),
1 - 32 X 8 = 256
1 - 24575 (#5FFF)).
1 - 24 X 256
1 - 20480 - 22527 (5000H - 57FFH)
1 - 1992
1 - 18432 - 20479 (4800H - 4FFFH)
1 - 16384 - 18431 (4000H - 47FFH)
1 - (DEFADD)+20
1 - ATTR_T (23695 = 5C8FH),
1 - 1C000
1 (x<256, y<176);
1 (p<256, q<176)
1 (PICture CELL).
1 (MAGNIFY X 2).
1 (FN g())
1 (FLASH).
1 (57855 - 57857).
1 (57852 - 57854).
1 (57793-57803).
1 ( FN b, FN c, FN e
1 "scroll?",
1 "scroll?"
1 "ZX-Spectrum" (
1 "ZX-Spectrum"
1 "SINCLAIR"
1 "SINCLAIR"
1 "Integer out
1 "GARGOYLE
1 "4 Out of memory".
1 "$&(+-/2479<?ADGJMORUX[^adgjmptwz}
1 x,y,z,...
1 x,y (0<x<255; 0<y<175).
1 x,y - "
1 proizBoditsa oknom":
1 pri BXodE B MEnq BybirAqtsa"
1 pErEmEwEniE linzy"
1 hotq tut lu^
1 XOR - "
1 X (0<Y<21; 0<X<31).
1 THIS PROGRAM
1 TEST_LINE
1 S_ATTR_S
1 SCR_FP.
1 SCREEN$ (X,Y)
1 RST 10H,
1 RST 10H
1 RL (HL).
1 RESTORE,
1 PRINT_FP,
1 PLOT_1...PLOT_3,
1 PEEK MM "
1 PAPER,
1 PAPER - FN b.
1 NEW_R_1
1 INVERSE,
1 INVERSE
1 INVERSE
1 INK, PAPER, BRIGHT, FLASH.
1 INK -
1 INC H.
1 IF STRING$ (0,0)=STRING$(0,1) THEN PRINT
1 FP_TO_A (2DD5H = 11733),
1 FN j(x,y),
1 FN i()
1 FN f(x,y),
1 FN d(x,y)
1 FN c (x,y,h,v,c,b,f)
1 FN f(x,y).
1 FLASH.
1 DRAW_LINE
1 DEF FN m() = USR 56957
1 COORDS.
1 COORDS (23677=5C7DH)
1 COORDS (23677=5C7DH)
1 COORDS
1 CONMAX,
1 CL_SCROLL
1 CL_LINE (0E44H = 3652)
1 BUFFER
1 BRIGHT
1 BANK_M.
1 ATTR_P (23693 = 5C8DH),
1 ADDR + 256,
1 ADDR + 512
1 A,C,D,E,F.
1 >>
1 7C000 -
1 7 = 111 -
1 6 = 110 -
1 5 = 101 -
1 4 = 100 -
1 32768!!! (
1 3 = 011 -
1 254 (FE).
1 2538H (9528),
1 23675 (5C7BH).
1 21*8 =168
1 2 = 010 -
1 1111 1000 = 248
1 1111 0000 = 240
1 1010 0111 = 167
1 1 = 001 -
1 06 (COMMA_CONTROL)
1 010??000
1 00000???
1 0000 0000 = 0
1 0,1,2... 255,
1 0 - 48 (30H),...
1 0 = 000 -
1 / * - + & ',
1 - BORDER 5.
1 - (DEFADD)+12 -
1 - DRAW x,y,a.
1 (PAPER)
1 (DEFADD)+4,
1 (BRIGHT),
1 (2583H = 9603),
1 (255,175).
1 (1...32).
1 (1...22),
1 #60-#7F (
1 "SINCLAIR",
1 "BREAK",
1 v3.0 (by
1 RAM,
1 DEFADD
1 COPY-86M,
1 BEGIN.....END
1 (e7,e6)
1 (095) 446-55-90
1 X X X
1 X X
1 X
1 ScaleScale inc Start Link Displac Rotation Rot. inc Cycles
1 BREAK
1 <NN>
1 1 2 3 4 5 6
1 ...........
1 000??000
1 'CLOSE'
1 X X
1 S.I. - SYSTEM INFORMATION -
1 7 6 5 4 3 2 1 0
1 00000???
1 -1":
1 END
1 BEGIN <NN>
1 .... ;<---
1 -5":
1 X X X X
1 X X X
1 X
1 Russia, Moskow, 12.10.95.
1 MAGENTA
1 *64067 2100FA LD HL,FA00H ;
1 *64037 1100FA LD DE, FA00H ;
1 *64013 CA3CFA JP Z,FA3CH ;
1 *64008 CA1EFA JP Z,FA1EH ;
1 ||
1 y,
1 x
1 n,
1 i-
1 h
1 Z (ZERO)
1 Y,X (0<Y<21; 0<X<31).
1 XOR
1 UDG (A,B,C,D,E,F),
1 TEST_NIBBLE PUSH BC ;
1 RLA
1 RESTORE USR.
1 RANDOMIZE,
1 RANDOMIZE USR addr: REM Wn,
1 RANDOMIZE USR addr: REM Ln,
1 RANDOMIZE USR
1 P_RAMT (23732 = 5CB4H).
1 P_FLAG (23697 = 5C91H)
1 PRINT_FP
1 PRINT "*"
1 PRINT
1 PO_COMMA (0A5FH=2655).
1 PLOT.
1 PLOT (22DCH = 8924)
1 PAPER,
1 OVER 1
1 OUT_NUM_2 (1A28H = 6696).
1 New turbo algoritms..90%
1 New turbo algoritms..10%
1 NETHEREARTH),
1 N2, 1991,
1 N12,
1 INVERSE n)
1 INPUT-
1 INK.
1 INK,
1 INK
1 INFORMATION FOR BRAKERS
1 HL,
1 HL).
1 GAMES"
1 FN l(x,y,h,v)
1 FN c(x,y,h,v,c,b,f).
1 FN b(x,y,h,v,c,b,f).
1 FN S(X,Y),
1 FN (d)
1 FN g(x,y,p,q).
1 FLASH, BRIGHT, OVER, INVERSE.
1 FLASH
1 DRAW_LINE
1 DRAW...
1 DRAW
1 DE
1 COPY_D,
1 CONMAX
1 CL_SC_ALL (0DFEH = 3582) "
1 CLS_LOWER,
1 CLS
1 C,
1 C (
1 BRIGHT
1 B
1 ATTR_T (5C8FH = 23695),
1 ATTR(Y,X).
1 ASCII,
1 A>RUN "MASM128K" <Enter>
1 A
1 ???00000
1 ??000000
1 ?000000?
1 = 8910),
1 = 6144
1 = 23696).
1 9.CREDITS & COMING SOON:
1 8.
1 728*8=6144
1 7.
1 65368
1 64077 C9 RET ;
1 64075 EDB0 LDIR ;
1 64072 01A800 LD BC,00A8 ;
1 64071 67 LD H,A ;
1 64070 84 ADD A,H ;
1 64064 1158FF LD DE,FF58H ;
1 64062 D630 SUB 30H ;
1 64061 7E LD A,(HL) ;
1 64060 23 INC HL ;
1 64047 C9 RET ;
1 64045 EDB0 LDIR ;
1 64042 01A800 LD BC,00A8 ;
1 64041 57 LD D,A ;
1 64040 82 ADD A,D ;
1 64034 2158FF LD HL,FF58H ;
1 64032 D630 SUB 30H ;
1 64031 7E LD A,(HL) ;
1 64030 23 INC HL ;
1 64016 C9 RET ;
1 64011 FE4C CP 4CH ;
1 64006 FE57 CP 57H ;
1 64005 7E LD A,(HL) ;
1 64004 23 INC HL ;HL
1 64003 23 INC HL ;
1 64000 2A5D5C LD HL,(5C5DH) ; 5C5DH=23645 DEC.
1 63094 0000 PARAM DEFW 0000
1 63092 0000 COORD DEFW 0000
1 63091 C9 RET ;
1 63089 10DE NO_SEG DJNZ LOOP_V ;
1 63088 67 LD H,A ;
1 63087 84 ADD A,H ;
1 63085 3E08 LD A,08 ;
1 63083 3004 JR NC,NO_SEG ;
1 63082 6F LD L,A ;
1 63081 85 ADD A,L ;
1 63079 3E20 LD A,20 ;
1 63078 C1 POP BC ;
1 63077 E1 POP HL ;
1 63075 10F0 DJNZ LOOP_8 ;
1 63074 24 INC H ;
1 63073 C1 POP BC ;
1 63072 E1 POP HL ;
1 63070 10FC DJNZ LOOP_H ;
1 63069 23 INC HL ;
1 63068 77 LOOP_H LD(HL),A ;
1 63067 AF XOR A ;
1 63066 47 LD B,A ;
1 63063 3A77F6 LD A,(F677) ;
1 63062 E5 PUSH HL ;
1 63061 C5 LOOP_8 PUSH BC ;
1 63059 0608 LD B,08 ;
1 63058 E5 PUSH HL ;
1 63057 C5 LOOP_V PUSH BC ;
1 63056 47 LD B,A ;
1 63053 3A76F6 LD A,(F676) ;
1 63052 6F LD L,A ;
1 63051 82 ADD A,D ;
1 63050 1F RRA ;
1 63049 1F RRA ;
1 63048 1F RRA ;
1 63047 1F RRA ;
1 63046 B7 OR A ;
1 63044 E607 AND 07 ;
1 63043 7B LD A,E ;
1 63042 67 LD H,A ;
1 63041 F6 OR 40 ;
1 63039 E618 AND 18 ;
1 63038 7B LD A,E ;
1 63034 ED5374F6 LD(F674),DE ;
1 63033 F0 RET P ;
1 63031 FE17 CP 17 ;
1 63030 7B LD A,E ;
1 63026 ED5B74F6 LD DE,(F674) ;
1 63022 ED5376F6 LD(PARAM),DE ;
1 63021 5E LD E,(HL) ;
1 63020 09 ADD HL,BC ;
1 63019 56 LD D,HL ;
1 63018 09 ADD HL,BC ;
1 63014 ED5374F6 LD(COORD),DE ;
1 63013 5E LD E,(HL) ;
1 63012 09 ADD HL,BC ;
1 63008 010800 LD BC,0008 ;
1 63007 56 LD D,(HL) ;
1 63006 09 ADD HL,BC ;
1 63003 010400 LD BC,0004 ;
1 63000 2A0B5C LD HL,(5C0BH) ;DEFADD -
1 62930 0000 COORD DEFW 0000 ;
1 62928 0000 PARAM DEFW 0000 ;
1 62927 00 INK DEFB 00 ;
1 62926 C9 RET ;
1 62924 10E6 DJNZ LOOP_V ;
1 62923 C1 POP BC ;
1 62922 09 ADD HL,BC ;
1 62919 012000 LD BC,0020 ;
1 62918 E1 POP HL ;
1 62916 10F4 DJNZ LOOP_H ;
1 62915 23 INC HL ;
1 62914 77 LD (HL),A ;
1 62913 B1 OR C ;
1 62910 3ACFF5 LD A,(INK) ;
1 62909 4F LD C,A ;
1 62907 E638 AND 38 ;
1 62906 7E LOOP_H LD A,(HL) ;
1 62905 47 LD B,A ;
1 62902 3AD1F5 LD A,(F5D1) ;
1 62901 E5 PUSH HL ;
1 62900 C5 LOOP_V PUSH BC ;
1 62899 47 LD B,A ;
1 62896 3AD0F5 LD A,(F5D0) ;
1 62895 6F LD L,A
1 62894 82 ADD A,D
1 62893 1F RRA
1 62892 1F RRA
1 62891 1F RRA
1 62890 1F RRA
1 62889 B7 OR A
1 62887 E607 AND 07
1 62886 7B LD A,E
1 62885 67 LD H,A
1 62883 F658 OR 58
1 62881 CB3F SRL A
1 62879 CB3F SRL A
1 62877 CB3F SRL A
1 62875 E618 AND 18
1 62874 7B LD A,E
1 62870 ED53D2F5 LD (COORD),DE ;
1 62869 C8 RET Z ;
1 62867 FE00 CP 00 ;
1 62864 3AD0F5 LD A,(F5D0) ;
1 62860 ED5BD2F5 SKIP_2 LD DE,(COORD) ;
1 62857 32CFF5 LD (INK),A ;
1 62855 F680 OR 80 ;
1 62852 3ACFF5 LD A,(INK) ;
1 62850 2808 JR Z,SKIP_2 ;
1 62848 E601 AND 01 ;
1 62847 7E LD A,(HL) ;
1 62846 09 SKIP_1 ADD HL,BC ;
1 62843 32CFF5 LD (INK),A ;
1 62841 F640 OR 40 ;
1 62838 3ACFF5 LD A,(INK) ;
1 62836 2808 JR Z,SKIP_1 ;
1 62834 E601 AND 01 ;
1 62833 7E LD A,(HL) ;
1 62832 09 ADD HL,BC ;
1 62829 32CFF5 LD (INK),A ;
1 62827 E607 AND 07 ;
1 62826 7E LD A,(HL) ;
1 62825 09 ADD HL,BC ;
1 62821 ED53D0F5 LD(PARAM),DE ;
1 62820 5E LD E,(HL) ;
1 62819 09 ADD HL,BC ;
1 62818 56 LD D,HL ;
1 62817 09 ADD HL,BC ;
1 62813 ED53D2F5 LD(COORD),DE ;
1 62812 5E LD E,(HL) ;
1 62811 09 ADD HL,BC ;
1 62808 010800 LD BC,0008 ;
1 62807 56 LD D,(HL) ;
1 62806 09 ADD HL,BC ;
1 62803 010400 LD BC,0004 ;
1 62800,
1 62800 2A0B5C LD HL,(5C0BH) ;
1 62742 0000 COORD DEFW 0000 ;
1 62740 0000 PARAM DEFW 0000 ;
1 62739 00 PAPER DEFB 00 ;
1 62738 C9 RET ;
1 62736 10E6 DJNZ LOOP_V ;
1 62735 C1 POP BC ;
1 62734 09 ADD HL,BC ;
1 62731 012000 LD BC,0020 ;
1 62730 E1 POP HL ;
1 62728 10F4 DJNZ LOOP_H ;
1 62727 23 INC HL ;
1 62726 77 LD (HL),A ;
1 62725 B1 OR C ;
1 62722 3A13F5 LD A,(PAPER) ;
1 62721 4F LD C,A ;
1 62719 E607 AND 07 ;
1 62718 7E LOOP_H LD A,(HL) ;
1 62717 47 LD B,A ;
1 62714 3A15F5 LD A,(F515) ;
1 62713 E5 PUSH HL ;
1 62712 C5 LOOP_V PUSH BC ;
1 62711 47 LD B,A ;
1 62708 3A14F5 LD A,(F514) ;
1 62707 6F LD L,A
1 62706 82 ADD A,D
1 62705 1F RRA
1 62704 1F RRA
1 62703 1F RRA
1 62702 1F RRA
1 62701 B7 OR A
1 62699 E607 AND 07
1 62698 7B LD A,E
1 62697 67 LD H,A
1 62695 F658 OR 58
1 62693 CB3F SRL A
1 62691 CB3F SRL A
1 62689 CB3F SRL A
1 62687 E618 AND 18
1 62686 7B LD A,E
1 62682 ED5322F5 LD (COORD),DE ;
1 62681 C8 RET Z ;
1 62679 FE00 CP OO ;
1 62676 3A15F5 LD A,(F515) ;
1 62675 C8 RET Z ;
1 62673 FE00 CP 00 ;
1 62670 3A14F5 LD A,(F514) ;
1 62666 ED5B16F5 SKIP_2 LD DE,(COORD) ;
1 62663 3213F5 LD (PAPER),A ;
1 62661 F680 OR 80 ;
1 62658 3A13F5 LD A,(PAPER) ;
1 62656 2808 JR Z,SKIP_2 ;
1 62654 E601 AND 01 ;
1 62653 7E LD A,(HL) ;
1 62652 09 SKIP_1 ADD HL,BC ;
1 62649 3213F5 LD (PAPER),A ;
1 62647 F640 OR 40 ;
1 62644 3A13F5 LD A,(PAPER) ;
1 62642 2808 JR Z,SKIP_1 ;
1 62640 E601 AND 01 ;
1 62639 7E LD A,(HL) ;
1 62638 09 ADD HL,BC ;
1 62635 3213F5 LD (PAPER),A ;
1 62633 CB27 SLA A ;
1 62631 CB27 SLA A ;
1 62629 CB27 SLA A ;
1 62627 E607 AND 07 ;
1 62626 7E LD A,(HL) ;
1 62625 09 ADD HL,BC ;
1 62621 ED5314F5 LD(PARAM),DE ;
1 62620 5E LD E,(HL) ;
1 62619 09 ADD HL,BC ;
1 62618 56 LD D,HL ;
1 62617 09 ADD HL,BC ;
1 62613 ED5316F5 LD(COORD),DE ;
1 62612 5E LD E,(HL) ;
1 62611 09 ADD HL,BC ;
1 62608 010800 LD BC,0008 ;
1 62607 56 LD D,(HL) ;
1 62606 09 ADD HL,BC ;
1 62603 010400 LD BC,0004 ;
1 62600 2A0B5C LD HL,(5C0BH) ;
1 62452 POINT DEFW
1 62450 CH_ADD DEFW
1 62449 COOR_X DEFB
1 62448 COOR_Y DEFB
1 62446 ROWCOL DEFW
1 62414 BUFFER DEFM
1 62413 C9 RET ;
1 62411 20E4 JR NZ,LOOP_F ;
1 62410 0D SKIP_4 DEC C
1 62409 67 LD H,A ;
1 62408 84 ADD A,H ;
1 62406 3E08 LD A,08 ;
1 62404 3004 JR NC,SKIP_4 ;
1 62403 6F LD L,A ;
1 62402 85 ADD A,L ;
1 62400 3E20 LD A,20 ;
1 62399 E1 POP HL
1 62397 10F5 DJNZ LOOP_Y ;
1 62396 24 INC H ;
1 62395 2B DEC HL ;
1 62394 13 INC DE
1 62393 77 LD (HL),A ;
1 62392 1A LD A,(DE) ;
1 62391 13 INC DE
1 62390 23 INC HL ;
1 62389 77 LD (HL),A ;
1 62388 1A LOOP_Y LD A,(DE) ;
1 62386 0608 LD B,08 ;
1 62385 E5 LOOP_F PUSH HL
1 62383 0E02 LD C,02 ;
1 62380 11CEF3 LD DE,BUFFER ;
1 62377 2AEEF3 LD HL,(ROWCOL) ;
1 62375 10DC DJNZ LOOP_X ;
1 62374 C1 POP BC ;
1 62373 13 INC DE ;
1 62372 23 INC HL ;
1 62371 77 LD (HL),A ;
1 62370 F1 POP AF ;
1 62369 23 INC HL ;
1 62368 77 LD (HL),A ;
1 62367 23 INC HL ;
1 62366 23 INC HL ;
1 62365 7E LD A,(HL) ;
1 62364 2B DEC HL ;
1 62363 F5 PUSH AF ;
1 62362 7E LD A,(HL) ;
1 62361 2B DEC HL ;
1 62359 20F1 JR NZ,AGAIN ;
1 62358 0D DEC C ;
1 62357 C1 POP BC ;
1 62356 23 INC HL ;
1 62354 10F7 DJNZ LOOP_S ;
1 62352 CB16 RL (HL) ;
1 62351 F1 POP AF ;
1 62349 CB16 RL (HL) ;
1 62348 F5 PUSH AF ;
1 62347 17 LOOP_S RLA ;
1 62346 C5 AGAIN PUSH BC ;
1 62343 010204 LD BC,0402 ;
1 62342 1A LD A,(DE) ;
1 62341 C5 LOOP_X PUSH BC ;
1 62339 0608 LD B,08 ;
1 62336 21CEF3 LD HL,BUFFER ;HL
1 62332 ED5BF2F3 LD DE,(CH_ADD) ;DE
1 62330 10FC DJNZ FC LOOP_H ;
1 62329 13 INC DE ;
1 62328 12 LOOP_H LD (DE),A ;
1 62326 3E00 LD A,00 ;
1 62324 0620 LD B,20 ;
1 62321 11CEF3 DOUBL LD DE,BUFFER ;
1 62320 C9 RET ;
1 62319 C1 EXIT POP BC ;
1 62318 C9 RET ;
1 62316 10A4 DJNZ, LOOP_M ;
1 62315 C1 POP BC ;
1 62312 32F1F3 LD (COOR_X),A ;
1 62311 3C INC A ;
1 62310 3C INC A ;
1 62307 3AF1F3 LD A,(COOR_X) ;
1 62304 CD71F3 CALL DOUBL ;
1 62301 22EEF3 LD(ROWCOL),A ;
1 62300 6F LD L,A ;
1 62299 82 ADD A,D ;
1 62298 1F RRA ;
1 62297 1F RRA ;
1 62296 1F RRA ;
1 62295 1F RRA ;
1 62294 B7 OR A ;
1 62292 E607 AND 07 ;
1 62291 7B LD A,E ;
1 62290 67 LD H,A ;
1 62288 F640 OR 40 ;
1 62286 E618 AND 18 ;
1 62285 7B LD A,E ;
1 62282 22F2F3 LD (CH_ADD),HL ;
1 62280 20FC JR NZ,LOOP_C ;
1 62279 3D DEC A ;
1 62278 09 LOOP_C ADD HL,BC ;
1 62277 24 INC H ;
1 62274 2A365C LD HL,(5C36) ; = 23606 -
1 62271 010800 LD BC,0008 ;
1 62269 D620 SUB 20 ;
1 62266 F26FF3 JP P,EXIT ;
1 62264 FE90 CP 90 ;
1 62261 FA6FF3 JP M,EXIT ;32
1 62259 FE1F CP 1F ;
1 62256 22F4F3 LD (POINT),HL ;
1 62255 23 INC HL ;
1 62254 7E LD A,(HL) ;
1 62251 2AF4F3 LD HL,(POINT) ;
1 62248 FA6FF3 JP M,EXIT ;
1 62247 BB CP E ;
1 62245 3E14 SKIP_1 LD A,14 ;
1 62241 ED53F0F3 LD(COOR_Y),DE ;
1 62240 1C INC E ;
1 62239 1C INC E ;
1 62237 1600 LD D,00 ;
1 62234 F225F3 JP P,SKIP_1 ;
1 62233 BA CP D ;
1 62231 3E1E LD A,1E ;
1 62227 ED5BF0F3 LD DE,(COOR_Y) ;
1 62226 C5 LOOP_M PUSH BC ;
1 62223 22F4F3 LD (POINT),HL ;
1 62220 2124F4 LD HL,F424 ;F424H=62500DEC-
1 62219 47 LD B,A ;
1 62217 3E63 LD A,63 ;63H=99DEC -
1 62213 ED53F0F3 LD(COOR_Y),DE ;
1 62212 5E LD E,(HL) ;
1 62211 09 ADD HL,BC ;
1 62208 010800 LD BC,0008 ;
1 62207 56 LD D,(HL) ;
1 62206 09 ADD HL,BC ;
1 62203 010400 LD BC,0004 ;
1 62200 2A0B5C LD HL,(5C0BH) ;
1 62147 POINT DEFW
1 62145 CH_ADD DEFW
1 62144 COOR_X DEFB
1 62143 COOR_Y DEFB
1 62141 ROWCOL DEFW
1 62109 BUFFER DEFM
1 62108 C9 RET ;
1 62106 20E4 JR NZ,LOOP_F ;
1 62105 0D SKIP_4 DEC C
1 62104 67 LD H,A ;
1 62103 84 ADD A,H ;
1 62101 3E08 LD A,08 ;
1 62099 3004 JR NC,SKIP_4 ;
1 62098 6F LD L,A ;
1 62097 85 ADD A,L ;
1 62095 3E20 LD A,20 ;
1 62094 E1 POP HL
1 62092 10F5 DJNZ LOOP_Y ;
1 62091 24 INC H ;
1 62090 2B DEC HL ;
1 62089 13 INC DE
1 62088 77 LD (HL),A ;
1 62087 1A LD A,(DE) ;
1 62086 13 INC DE
1 62085 23 INC HL ;
1 62084 77 LD (HL),A ;
1 62083 1A LOOP_Y LD A,(DE) ;
1 62081 0608 LD B,08 ;
1 62080 E5 LOOP_F PUSH HL
1 62078 0E02 LD C,02 ;
1 62075 119DF2 LD DE,BUFFER ;
1 62072 2ABDF2 LD HL,(ROWCOL) ;
1 62070 10DC DJNZ LOOP_X ;
1 62069 C1 POP BC ;
1 62068 13 INC DE ;
1 62067 23 INC HL ;
1 62066 77 LD (HL),A ;
1 62065 F1 POP AF ;
1 62064 23 INC HL ;
1 62063 77 LD (HL),A ;
1 62062 23 INC HL ;
1 62061 23 INC HL ;
1 62060 7E LD A,(HL) ;
1 62059 2B DEC HL ;
1 62058 F5 PUSH AF ;
1 62057 7E LD A,(HL) ;
1 62056 2B DEC HL ;
1 62054 20F1 JR NZ,AGAIN ;
1 62053 0D DEC C ;
1 62052 C1 POP BC ;
1 62051 23 INC HL ;
1 62049 10F7 DJNZ LOOP_S ;
1 62047 CB16 RL (HL) ;
1 62046 F1 POP AF ;
1 62044 CB16 RL (HL) ;
1 62043 F5 PUSH AF ;
1 62042 17 LOOP_S RLA ;
1 62041 C5 AGAIN PUSH BC ;
1 62038 010204 LD BC,0402 ;
1 62037 1A LD A,(DE) ;
1 62036 C5 LOOP_X PUSH BC ;
1 62034 0608 LD B,08 ;
1 62031 219DF2 LD HL,BUFFER ;HL
1 62027 ED5BC1F2 LD DE,(CH_ADD) ;DE
1 62025 10FC DJNZ FC LOOP_H ;
1 62024 13 INC DE ;
1 62023 12 LOOP_H LD (DE),A ;
1 62021 3E00 LD A,00 ;
1 62019 0620 LD B,20 ;
1 62016 119DF2 DOUBL LD DE,BUFFER ;
1 62015 C9 RET ;
1 62014 C1 EXIT POP BC ;
1 62013 C9 RET ;
1 62011 10A9 DJNZ, LOOP_M ;
1 62010 C1 POP BC ;
1 62007 32BFF2 LD (COOR_Y),A ;
1 62006 3C INC A ;
1 62005 3C INC A ;
1 62002 3ABFF2 LD A,(COOR_Y) ;
1 61999 CD40F2 CALL DOUBL ;
1 61996 22BDF2 LD(ROWCOL),HL ;
1 61995 6F LD L,A ;
1 61994 82 ADD A,D ;
1 61993 1F RRA ;
1 61992 1F RRA ;
1 61991 1F RRA ;
1 61990 1F RRA ;
1 61989 B7 OR A ;
1 61987 E607 AND 07 ;
1 61986 7B LD A,E ;
1 61985 67 LD H,A ;
1 61983 F640 OR 40 ;
1 61981 E618 AND 18 ;
1 61980 7B LD A,E ;
1 61977 22C1F2 LD (CH_ADD),HL ;
1 61975 20FC JR NZ,LOOP_C ;
1 61974 3D DEC A ;
1 61973 09 LOOP_C ADD HL,BC ;
1 61972 24 INC H ;
1 61969 2A365C LD HL,(5C36) ; = 23606 -
1 61966 010800 LD BC,0008 ;
1 61964 D620 SUB 20 ;
1 61961 F23EF2 JP P,EXIT ;
1 61959 FE90 CP 90 ;
1 61956 FA3EF2 JP M,EXIT ;32
1 61954 FE1F CP 1F ;
1 61951 22C3F2 LD (POINT),HL ;
1 61950 23 INC HL ;
1 61949 7E LD A,(HL) ;
1 61946 2AC3F2 LD HL,(POINT) ;
1 61943 FA3EF2 JP M,EXIT ;
1 61942 BB CP E ;
1 61940 3E14 SKIP_1 LD A,14 ;
1 61937 C33EF2 JP EXIT ;
1 61934 F2F4F1 JP P,SKIP_1 ;
1 61933 BA CP D ;
1 61931 3E1E LD A,1E ;
1 61927 ED5BBFF2 LD DE,(COOR_Y) ;
1 61926 C5 LOOP_M PUSH BC ;
1 61923 22C3F2 LD (POINT),HL ;
1 61920 2124F4 LD HL,BUFFER ;F424H=62500DEC-
1 61919 47 LD B,A ;
1 61917 3E63 LD A,63 ;63H=99DEC -
1 61913 ED53BFF2 LD(COOR_Y),DE ;
1 61912 5E LD E,(HL) ;
1 61911 09 ADD HL,BC ;
1 61908 010800 LD BC,0008 ;
1 61907 56 LD D,(HL) ;
1 61906 09 ADD HL,BC ;
1 61903 010400 LD BC,0004 ;
1 61900 2A0B5C LD HL,(5C0BH) ;
1 61556 C9 RET ;
1 61555 77 LD (HL),A ;
1 61554 B0 OR B ;
1 61553 7E LD A,(HL) ;
1 61552 47 LD B,A ;
1 61551 A8 XOR B ;
1 61549 06FF LD B,0FFH ;
1 61547 10FD DJNZ,LOOP ;
1 61546 0F LOOP RRCA ;
1 61544 3EFE LD A,FE ;
1 61543 04 INC B ; + 1
1 61542 47 LD B,A ;
1 61540 E607 AND 07 ;
1 61539 7A LD A,D ;
1 61538 6F LD L,A
1 61537 07 RLCA
1 61536 07 RLCA
1 61534 AB XOR E
1 61533 E6C7 AND C7
1 61532 AB XOR E
1 61531 07 RLCA
1 61530 07 RLCA
1 61529 07 RLCA
1 61528 7A LD A,D
1 61527 67 LD H,A
1 61526 AB XOR E
1 61524 E6F8 AND 0F8H
1 61523 AB XOR E
1 61522 1F RRA
1 61521 A7 AND A
1 61520 1F RRA
1 61519 37 SCF
1 61518 1F RRA
1 61517 A7 AND A
1 61516 5F LD E,A
1 61515 D8 RET C
1 61514 93 SUB E
1 61512 3EAF LD A,0AFH
1 61511 5E LD E,(HL)
1 61510 09 ADD HL,BC ;
1 61508 0E08 LD C,08 ;
1 61507 56 LD D,(HL) ;
1 61506 09 ADD HL,BC ;
1 61503 010400 LD BC,0004 ;
1 61500 2A0B5C LD HL,(5C0BH) ;
1 6144 + 768 = 6912
1 60910 C9 RET ;
1 60907 09 ADD HL,BC ;
1 60906 56 LD D(HL) ;
1 60905 09 ADD HL,BC ;
1 60904 E1 POP HL ;
1 60903 C1 POP BC ;
1 60900 CDB3ED CALL PLOT ;
1 60899 C5 PUSH BC ;
1 60898 E5 BEGIN PUSH HL ;
1 60897 C9 RET ;
1 60896 77 LD (HL),A ;
1 60895 B0 OR B ;
1 60894 7E LD A,(HL) ;
1 60893 47 LD B,A ;
1 60892 A8 XOR B ;
1 60890 06FF LD B,0FFH ;
1 60888 10FD DJNZ AGAIN ;
1 60887 0F AGAIN RRCA ;
1 60885 3EFE LD A,0FEH ;
1 60884 04 INC B ;
1 60883 47 LD B,A ;
1 60881 E607 AND 07H ;
1 60880 7A LD A,D ;
1 60879 6F LD L,A ;
1 60878 07 RLCA ;
1 60877 07 RLCA ;
1 60876 AB XOR E ;
1 60874 E6C7 AND C7 ;
1 60873 AB XOR E ;
1 60872 07 RLCA ;
1 60871 07 RLCA ;
1 60870 07 RLCA ;
1 60869 7A LD A,D ;
1 60868 67 LD H,A ;
1 60867 AB XOR E ;
1 60865 E6F8 AND F8 ;
1 60864 AB XOR E ;
1 60863 1F RRA ;
1 60862 A7 AND A ;
1 60861 1F RRA ;
1 60860 37 SCF ;
1 60859 1F RRA ;
1 60858 A7 AND A ;
1 60857 5F LD E,A ;
1 60854 DAF924 JP C,24F9 ;
1 60853 93 SUB E ;
1 60851 3EAF PLOT LD A,0AFH ;AF=175
1 60849 SIGN DEFW ;
1 60847 STK_P DEFW ;
1 60846 C9 RET ;
1 60845 D9 EXX ;
1 60844 E1 POP HL ;
1 60843 D9 EXX ;
1 60839 ED7BAFED FINISH LD SP,(EDAF) ;
1 60836 CA93ED CONT_8 JP Z,CONT_9 ;
1 60833 C3A7ED JP FINISH ;
1 60831 20CD JR NZ,REPEAT ;
1 60830 1D DEC E ;
1 60829 7A LD A,D
1 60828 D9 EXX ;
1 60825 CDB3ED CALL PLOT ;
1 60821 ED531AED LD (COORD),DE ;
1 60820 57 LD D,A ;
1 60819 3D CONT_9 DEC A ;
1 60816 CAA7ED JP Z,FINISH ;
1 60813 DAA4ED JP C,CONT_8 ;
1 60812 84 ADD A,H ;
1 60811 3C INC A ;
1 60810 7A LD A,D ;
1 60809 5F LD E,A ;
1 60808 85 ADD A,L ;
1 60807 7B LD A,E ;
1 60804 2A1AED CONT_7 LD HL,(COORD) ;
1 60803 D1 POP DE ;
1 60802 D9 EXX ;
1 60801 C5 PUSH BC ;
1 60800 57 CONT_6 LD D,A ;
1 60797 C384ED JP CONT_7
1 60793 ED5BB1ED LD DE,(SIGN) ;
1 60792 D9 EXX ;
1 60791 57 LD D,A ;
1 60790 94 CONT_5 SUB H ;
1 60787 DA80ED JP C,CONT_6 ;
1 60786 BC CP H ;
1 60783 DA76ED JP C,CONT_5 ;
1 60782 85 REPEAT ADD A,L ;0.5max+min
1 60781 1F RRA ;
1 60780 7B LD A,E ;
1 60779 63 CONT_4 LD H,E ;
1 60777 OE00 LD C,00 ;
1 60773 ED43B1ED LD (SIGN),BC ;
1 60772 5A LD E,D ;
1 60771 6B LD L,E ;
1 60768 CAA7ED JP Z,FINISH ;
1 60767 B2 CONT_3 OR D ;
1 60764 C36BED JP CONT_4 ;
1 60763 47 LD B,A ;
1 60762 AF XOR A ;
1 60758 ED43B1ED LD (SIGN),BC ;
1 60757 6A LD L,D ;
1 60755 300A JR NC,CONT_3 ;
1 60754 BB CP E ;
1 60753 7A LD A,D ;
1 60752 5F CONT_2 LD E,A ;
1 60750 ED44 NEG ;
1 60748 0EFF LD C,0FFH ;
1 60745 D250ED JP NC,CONT_2 ;
1 60744 95 SUB L ;
1 60743 7B LD A,E ;
1 60742 57 CONT_1 LD D,A ;
1 60740 ED44 NEG ;
1 60738 06FF LD B,0FFH ;
1 60735 D246ED JP NC,CONT_1 ;
1 60734 94 SUB H ;
1 60733 7A LD A,D ;
1 60730 010101 LD BC,0101 ;
1 60726 ED73AFED LD(STK_P),SP ;
1 60725 D9 EXX ;
1 60724 E5 PUSH HL ;
1 60723 D9 EXX ;
1 60720 2A1AED LD HL,(ED1A) ;
1 60719 5E LD E,(HL) ;
1 60716 CDE2ED CALL BEGIN ;
1 60712 ED531AED LD(COORD),DE ;
1 60711 5E LD E,(HL) ;
1 60710 09 ADD HL,BC ;
1 60708 0E08 LD C,08 ;
1 60707 56 LD D,(HL) ;
1 60706 09 ADD HL,BC ;
1 60703 010400 LD BC,0004 ;
1 60700 2A0B5C LD HL,(5C0BH) ;
1 60698 COORD DEFW ;
1 60503 X_RGHT DEFB ;
1 60502 Y_DOWN DEFB ;
1 60501 WIDTH DEFB ;
1 60500 HIGHT DEFB ;
1 60499 X_LEFT DEFB ;
1 60498 Y_UP DEFB ;
1 60497 C9 RET ;
1 60494 CD33ED CALL ED33 ;
1 60491 221AED LD (COORD),HL ;
1 60490 57 LD D,A
1 60487 3A57EC LD A,(X_RGHT) ;
1 60486 2C INC L
1 60485 5F LD E,A
1 60482 3A52EC LD A,(Y_UP) ;
1 60479 2A56EC LD HL,(Y_DOWN) ;
1 60476 CD33ED CALL ED33 ;
1 60473 221AED LD (COORD),HL ;
1 60472 5F LD E,A
1 60469 3A56EC LD A,(Y_DOWN) ;
1 60468 57 LD D,A
1 60465 3A53EC LD A,(X_LEFT) ;
1 60462 2A56EC LD HL,(Y_DOWN) ;
1 60459 CD33ED CALL ED33 ;
1 60456 221AED LD (COORD),HL ;
1 60455 62 LD H,D ;
1 60454 6F LD L,A ;
1 60451 3256EC LD (Y_DOWN),A ;
1 60450 83 ADD A,E ;
1 60447 3A54EC LD A,(HIGHT) ;
1 60443 ED5B52EC LD DE,(Y_UP) ;
1 60440 CD33ED CALL ED33 ;
1 60437 221AED LD (COORD),HL ;
1 60436 6B LD L,E ;
1 60433 3257EC LD (X_RGHT),A ;
1 60432 67 LD H,A ;
1 60431 82 ADD A,D ;
1 60428 3A55EC LD A,(WIDTH) ;
1 60424 ED5B52EC LD DE,(Y_UP) ;
1 60420 ED5354EC LD(HIGHT),DE ;
1 60419 5E LD E,(HL) ;
1 60418 09 ADD HL,BC ;
1 60417 56 LD D,(HL) ;
1 60416 09 ADD HL,BC ;
1 60412 ED5352EC LD(Y_UP),DE ;
1 60411 5E LD E,(HL) ;
1 60410 09 ADD HL,BC ;
1 60408 0E08 LD C,08 ;
1 60407 56 LD D,(HL) ;
1 60406 09 ADD HL,BC ;
1 60403 010400 LD BC,0004 ;
1 60400 2A0B5C LD HL,(5C0BH) ;
1 60372 PLOT_3 DEFW ;
1 60370 PLOT_2 DEFW ;
1 60368 PLOT_1 DEFW ;
1 60367 C9 RET ;
1 60364 CD33ED CALL ED33 ;
1 60361 221AED LD (ED1A),HL ;
1 60358 2AD0EB LD HL,(PLOT_1) ;
1 60354 ED5BD2EB LD DE,(PLOT_2) ;
1 60351 CD33ED CALL ED33 ;
1 60348 221AED LD (COORD),HL ;
1 60345 2AD4EB LD HL,(PLOT_3) ;
1 60341 ED5BD0EB LD DE,(PLOT_1) ;
1 60338 CD33ED CALL ED33 ;
1 60335 221AED LD (COORD),HL ;
1 60332 2AD2EB LD HL,(PLOT_2) ;
1 60328 ED53D4EB LD(PLOT_3),DE ;
1 60327 5E LD E,(HL) ;
1 60326 09 ADD HL,BC ;
1 60325 56 LD D,(HL) ;
1 60324 09 ADD HL,BC ;
1 60320 ED53D2EB LD(PLOT_2),DE ;
1 60319 5E LD E,(HL) ;
1 60318 09 ADD HL,BC ;
1 60317 56 LD D,(HL) ;
1 60316 09 ADD HL,BC ;
1 60312 ED53D0EB LD(PLOT_1),DE ;
1 60311 5E LD E,(HL) ;
1 60310 09 ADD HL,BC ;
1 60308 0E08 LD C,08 ;
1 60307 56 LD D,(HL) ;
1 60306 09 ADD HL,BC ;
1 60303 010400 LD BC,0004 ;
1 60300 2A0B5C LD HL,(5C0BH) ;
1 5CAFH (23727).
1 57900 BUFFER DEFW ;
1 57898 TEMPXY DEFW ;
1 57896 CONMAX DEFW ;
1 57894 CONMIN DEFW ;
1 57887 C9 RET ;
1 57884 2228E2 LD (CONMAX),HL ;
1 57883 E1 PASS_1 POP HL ;
1 57882 E5 PUSH HL ;
1 57879 212CE2 LD HL,E22C ;
1 57878 E1 POP HL ;
1 57876 2005 JR NZ,PASS_1 ;
1 57874 ED42 SBC HL,BC ;
1 57873 A7 AND A ;
1 57870 01???? LD BC,XXXX ;
1 57869 E5 PUSH HL ;
1 57868 23 INC HL ;
1 57867 72 LD (HL),D ;y
1 57866 23 INC HL ;
1 57865 73 LD (HL),E ;x
1 57861 ED5B2AE2 LD DE,(TEMPXY) ;
1 57858 2A28E2 LD HL,(CONMAX) ;
1 57857 77 LD (HL),A ;
1 57856 B0 OR B ;
1 57855 7E LD A,(HL) ;
1 57854 C0 RET NZ ;
1 57853 A0 AND B ;
1 57852 7E LD A,(HL) ;
1 57851 47 LD B,A ;
1 57850 A8 XOR B ;
1 57848 06FF LD B,0FFH ;
1 57846 10FD DJNZ AGAIN ;
1 57845 0F AGAIN RRCA ;
1 57843 3EFE LD A,0FEH ;
1 57842 04 INC B ;
1 57841 47 LD B,A ;
1 57839 E607 AND 07 ;
1 57838 7A LD A,D ;
1 57837 6F LD L,A ;
1 57836 07 RLCA ;
1 57835 07 RLCA ;
1 57834 AB XOR A
1 57832 E6C7 AND C7 ;
1 57831 AB XOR A ;
1 57830 07 RLCA ;
1 57829 07 RLCA ;
1 57828 07 RLCA ;
1 57827 7A LD A,D ;
1 57826 67 LD H,A ;
1 57825 AB XOR E ;
1 57823 E6F8 AND 0F8H ;
1 57822 AB XOR E ;
1 57821 1F RRA ;
1 57820 37 SCF ;
1 57819 1F RRA ;
1 57818 37 SCF ;
1 57817 1F RRA ;
1 57816 A7 AND A ;
1 57815 5F LD E,A ;
1 57814 D8 RET C ;
1 57813 93 SUB E ;
1 57811 3EAF LD A,0AFH ;AFH=175 DEC
1 57807 ED532AE2 PLOT LD (TEMPXY),DE ;
1 57804 C385E1 JP MAIN_L ;
1 57803 C8 RET Z ;
1 57801 ED42 SBC HL,BC ;
1 57800 A7 AND A ;
1 57796 ED4B28E2 LD BC,(CONMAX) ;
1 57793 2226E2 LD(CONMIN),HL ;
1 57792 E1 PASS POP HL ;
1 57791 E5 PUSH HL ;
1 57788 212CE2 LD HL,BUFFER ;
1 57787 E1 POP HL ;
1 57785 2005 JR NZ PASS ;
1 57783 ED42 SBC HL,BC ;
1 57782 A7 AND A ;
1 57779 01???? LD BC XXXX ;XXXX -
1 57778 E5 PUSH HL ;
1 57777 23 INC HL ;
1 57776 23 INC HL ;
1 57775 2A26E2 LD HL,(CONMIN) ;
1 57772 CDCFE1 CALL PLOT ;
1 57769 56 LD D,(HL) ;
1 57769 56
1 57763 2A26E2 LD HL,(CONMIN) ;
1 57760 CDCFE1 CALL PLOT ;
1 57759 14 INC D ;x+1.
1 57758 56 LD D,(HL) ;
1 57757 23 INC HL ;
1 57756 5E LD E,(HL) ;
1 57755 2A26E2 LD HL,(CONMIN) ;
1 57752 CDCFE1 CALL PLOT ;
1 57749 56 LD D,(HL) ;
1 57748 23 INC HL ;
1 57747 1C INC E ;y+1.
1 57746 5E LD E,(HL) ;
1 57743 2A26E2 LD HL,(CONMIN) ;
1 57740 CDCFE1 CALL PLOT ;
1 57739 15 DEC D ;x-1.
1 57738 56 LD D,(HL) ;
1 57737 23 INC HL ;
1 57736 5E LD E,(HL) ;
1 57733 2A26E2 MAIN_L LD HL,(CONMIN) ;
1 57730 2226E2 LD(CONMIN),HL ;
1 57729 E1 POP HL ;
1 57726 2228E2 LD(CONMAX),HL ;
1 57725 23 INC HL ;
1 57724 23 INC HL ;
1 57723 E5 PUSH HL ;
1 57720 212CE2 LD HL,E22C ;
1 57716 ED532AE2 LD(TEMPXY),DE ;
1 57712 ED532CE2 LD(BUFFER),DE ;
1 57711 5E LD E,(HL) ;
1 57710 09 ADD HL,BC ;
1 57708 0E08 LD C,08 ;
1 57707 56 LD D,(HL) ;
1 57706 09 ADD HL,BC ;
1 57703 010400 LD BC,0004 ;
1 57700 2A0B5C LD HL,(5C0BH) ;
1 57613 C9 RET ;
1 57610 32DFED LD (EDDF),A ;
1 57608 3EB0 LD A,0B0H ;0B -
1 57605 CD1CED CALL ED1C ;
1 57602 32DFED LD (EDDF),A ;
1 57600 3EA8 LD A,0A8H ;A8 -
1 56979 ADDR_3 DEFW ;
1 56977 ADDR_2 DEFW ;
1 56975 ADDR_1 DEFW ;
1 56973 ADDR DEFW ;
1 56972 WIDTH DEFB ;
1 56971 HEIGHT DEFB ;
1 56970 COORDX DEFB ;
1 56969 COORDY DEFB ;
1 56968 C9 RET ;
1 56966 EDB0 LDIR ;
1 56963 01001A LD BC,1A00H ;
1 56960 110040 LD DE,4000H ;
1 56957 210076 COPY_D LD HL,7600H ;
1 56956 C9 RET ;
1 56954 EDB0 LDIR ;
1 56951 01001A LD BC,1A00H ;
1 56948 110076 LD DE,7600H ;
1 56945 210040 COPYUP LD HL,4000H ;
1 56944 C9 RET ;
1 56942 10F9 DJNZ LOOP_6 ;
1 56941 23 INC HL ;
1 56940 25 DEC H ;
1 56939 77 LD (HL),A ;
1 56938 24 INC H ;
1 56937 7E LOOP_6 LD A,(HL) ;
1 56936 47 LD B,A ;"
1 56934 CB27 SLA A ;
1 56931 3A8CDE REPEAT LD A,(WIDTH) ;
1 56930 C9 RET ;
1 56929 57 LD D,A ;
1 56928 82 ADD A,D ;
1 56926 3E08 LD A,08 ;
1 56925 D0 RET NC ;
1 56924 5F LD E,A ;
1 56923 83 ADD A,E ;
1 56921 3E20 NEW_R_1LD A,20H ;
1 56920 C9 RET ;
1 56919 67 LD H,A ;
1 56918 84 ADD A,H ;
1 56916 3E08 LD A,08 ;
1 56915 D0 RET NC ;
1 56914 6F LD L,A ;
1 56913 85 ADD A,L ;
1 56911 3E20 NEW_R LD A,20H ;
1 56910 C9 RET
1 56909 13 INC DE
1 56907 20ED JR NZ,LOOP_4
1 56906 0D DEC C
1 56905 C1 POP BC
1 56904 23 INC HL
1 56902 10F7 DJNZ LOOP_5
1 56900 CB16 RL (HL)
1 56899 F1 POP AF
1 56897 CB16 RL (HL)
1 56896 F5 PUSH AF
1 56895 17 LOOP_5 RLA
1 56894 F1 POP AF
1 56893 77 LD (HL),A
1 56892 AF XOR A
1 56891 F5 PUSH AF
1 56890 C5 LOOP_4 PUSH BC
1 56887 010204 LD BC,0402
1 56886 1A DOUB_L LD A,(DE)
1 56885 C9 RET
1 56884 14 INC D
1 56883 24 INC H
1 56882 24 INC H
1 56881 E1 POP HL
1 56878 CD63DE CALL REPEAT ;
1 56877 E5 PUSH HL
1 56873 ED5B93DE LD DE,(ADDR_3) ;
1 56870 2A91DE LD HL,(ADDR_2) ;
1 56868 10F9 DJNZ LOOP_3 ;
1 56867 C1 POP BC
1 56864 CD36DE CALL DOUB_L ;
1 56863 C5 LOOP_3 PUSH BC ;
1 56859 ED5393DE LD (ADDR_3),DE ;
1 56856 2291DE LD (ADDR_2),HL ;
1 56855 47 LD B,A ;
1 56852 3A8CDE DOUBLE LD A,(WIDTH) ;
1 56851 C9 RET
1 56849 10D9 DJNZ LOOP_1 ;
1 56848 C1 POP BC
1 56844 ED538FDE LD (ADDR_1),DE ;
1 56841 CD59DE CALL NEW_R_1 ;
1 56837 ED5B8FDE LD DE,(ADDR_1) ;
1 56835 20EB JR NZ,LOOP_2 ;
1 56834 0D DEC C ;
1 56832 0604 LD B,04
1 56829 228DDE LD (ADDR),HL ;
1 56826 CD4FDE CALL NEW_R ;
1 56823 2A8DDE LD HL,(ADDR) ;
1 56821 10F9 DJNZ LOOP_2 ;
1 56820 C1 POP BC
1 56817 CD14DE CALL DOUBLE ;8
1 56816 C5 LOOP_2 PUSH BC ;
1 56813 010204 LD BC 0402 ;
1 56812 C5 LOOP_1 PUSH BC ;
1 56811 47 LD B,A ;
1 56808 3A8BDE LD A,(HEIGHT) ;v.
1 56804 ED5B8FDE LD DE,(ADDR_1) ;
1 56801 2A8DDE LD HL,(ADDR) ;
1 56798 CD71DE CALL COPYUP ;
1 56795 228FDE LD (ADDR_1),HL ;
1 56794 19 ADD HL,DE ;
1 56791 110076 LD DE 7600 ;
1 56789 ED52 SBC HL,DE ;
1 56788 A7 AND A ;
1 56785 110040 LD DE 4000 ;
1 56782 228DDE LD (ADDR),HL ;
1 56781 6F LD L,A ;
1 56780 82 ADD A,D ;
1 56779 1F RRA ;
1 56778 1F RRA ;
1 56777 1F RRA ;
1 56776 1F RRA ;
1 56775 B7 OR A ;
1 56773 E607 AND 07 ;
1 56772 7B LD A,E ;
1 56771 67 LD H,A ;
1 56769 F640 OR 40 ;
1 56767 E618 AND 18H ;
1 56766 7B LD A,E ;
1 56762 ED5B89DE PASS_2 LD DE,(COORDY) ;x,y
1 56759 328BDE LD (HEIGHT),A ;vmax=21-y -
1 56758 90 SUB B ;21-y
1 56756 3E15 LD A,15H ;21
1 56754 3806 JR C,PASS_2 ;
1 56752 D616 SUB 16H ;
1 56751 80 ADD A,B ;y+v
1 56748 3A8BDE LD A,(HEIGHT) ;v
1 56747 47 LD B,A ;y
1 56744 3A89DE PASS_1 LD A,(COORDY) ;y
1 56741 328CDE LD (WIDTH),A ;hmax=31-x -
1 56740 90 SUB B ;31-x
1 56738 3E1F LD A,1FH ;31
1 56736 2806 JR Z,PASS_1 ;
1 56734 E6E0 AND E0 ;E0H=1110 0000 BIN
1 56733 80 ADD A,B ; x+h
1 56730 3A8CDE LD A,(WIDTH) ;
1 56729 47 LD B,A ;
1 56726 3A8ADE LD A,(COORDX) ;
1 56723 328BDE LD (HEIGHT),A ;
1 56722 7E LD A,(HL) ;
1 56721 09 ADD HL,BC ;
1 56718 328CDE LD (WIDTH),A ;
1 56717 7E LD A,(HL) ;
1 56716 09 ADD HL,BC ;
1 56712 ED5389DE LD(COORDY),DE ;
1 56711 5E LD E,(HL) ;
1 56710 09 ADD HL,BC ;
1 56708 0E08 LD C,08 ;
1 56707 56 LD D,(HL) ;
1 56706 09 ADD HL,BC ;
1 56703 010400 LD BC,0004 ;
1 56700 2A0B5C LD HL,(5C0BH) ;
1 56658 ADDR DEFW ;
1 56657 C9 RET
1 56653 ED5316DD LD (NEXT_S),DE ;
1 56652 12 LD (DE),A ;
1 56651 78 LD A,B ;
1 56650 13 INC DE ;
1 56649 12 LD (DE),A ;
1 56648 F1 END POP AF ;
1 56646 18E3 JR RETURN ;
1 56645 13 INC DE ;
1 56644 12 LD (DE),A ;
1 56643 78 LD A,B ;
1 56642 13 INC DE ;
1 56641 12 PASS_1 LD (DE),A ;
1 56640 05 DEC B ;
1 56638 20EE JR NZ,AGAIN ;
1 56637 04 INC B ;
1 56635 2004 JR NZ,PASS_1 ;
1 56634 B9 CP C ;
1 56633 4E PASS LD C,(HL) ;
1 56632 F1 POP AF
1 56630 2810 JR Z,END ;
1 56628 FE5B CP 5B ;
1 56627 7C LD A,H ;
1 56626 F5 PUSH AF ;
1 56625 24 INC H ;
1 56623 2008 JR NZ,PASS ;
1 56622 2C AGAIN INC L ;
1 56621 7E LD A,(HL) ;
1 56619 0601 RETURN LD B,01 ;
1 56616 210040 LD HL,4000 ;
1 56612 ED5352DD LD(ADDR),DE ;
1 56611 5E LD E,(HL) ;
1 56610 09 ADD HL,BC ;
1 56608 0E08 LD C,08 ;
1 56607 56 LD D,(HL) ;
1 56606 09 ADD HL,BC ;
1 56603 010400 LD BC,0004 ;
1 56600 2A0B5C LD HL,(5C0BH) ;
1 56598 NEXT_S DEFW ;
1 56531 C9 RET ;
1 56529 20F0 JR NZ,AGAIN ;
1 56527 FE5B CP 5BH ;
1 56526 7C LD A,H ;
1 56524 10FC DJNZ LOOP ;
1 56523 23 INC HL ;
1 56522 77 LOOP LD (HL),A ;
1 56521 F1 POP AF ;
1 56520 47 LD B,A ;
1 56519 13 INC DE ;
1 56518 1A LD A,(DE) ;
1 56517 13 INC DE ;
1 56516 F5 PUSH AF ;
1 56515 1A AGAIN LD A,(DE) ;
1 56512 210040 LD HL,4000 ;
1 56511 5E LD E,(HL) ;
1 56510 09 ADD HL,BC ;
1 56508 0E08 LD C,08 ;
1 56507 56 LD D,(HL) ;
1 56506 09 ADD HL,BC ;
1 56503 010400 LD BC,0004 ;
1 56500 2A0B5C LD HL,(5C0BH) ;
1 5-
1 3FFFF,
1 30H (
1 30208 DEC.
1 3.
1 3
1 256x176
1 255)
1 24-
1 23776 0
1 23775 0
1 23774 8
1 23773 0
1 23772 0
1 23771 14
1 23768 120
1 23768 0
1 23767 41
1 23767 0
1 23766 122
1 23766 3
1 23765 44
1 23765 0
1 23764 121
1 23764 0
1 23763 14 -
1 23763 14
1 23761 40 -
1 23760 97 -
1 23759 206 -
1 23758 0
1 23757 34
1 23756 10
1 23755 0
1 23295).
1 23,
1 22E5H (8933).
1 20 PRINT INK 6; PAPER 1; "ZX-SPECTRUM" -
1 2.
1 2,
1 1990
1 16
1 139
1 10H. "
1 10H.
1 10H
1 10 PAPER 2: CLS -
1 1.
1 1),
1 000000??
1 0.
1 0
1 /\
1 .170).
1 ...........................................
1 ................... -
1 ...................
1 -----------------------
1 - 5AFFH,
1 - 57837).
1 - 5615),
1 -
1 (x,y,p,q).
1 (e2,e1,e0)
1 (9600).
1 (9525),
1 (9005)
1 (8907).
1 (5C48H).
1 (57788).
1 (2BF1H = 11249).
1 (2394H = 9108).
1 (23698)
1 (23624 = 5C48H).
1 (23563 = 5C0BH),
1 (0E00H = 3584).
1 (0...255) -
1 (0,0)
1 "TRUE"
1 "A",
1 TEST_LINE LD A,(HL) ;HL
1 TEST_HALF CALL TEST_LINE ;
1 SCR_SINGL LD C,A ;
1 RED
1 GREEN
1 CYAN
1 ????????
1 3.
1 0...1 0...2 0...7 0...7 0 ... 31
1 (22
1 YELLOW
1 RLA 1 01010100 00000000
1 RLA 1 01010000 00001100
1 RLA 0 10101000 00000011
1 RL (HL) 0 10101000 00001100
1 RL (HL) 0 10101000 00000110
1 RL (HL) 0 01010100 00000011
1 RL (HL) 0 01010100 00000001
1 RL (HL) 0 01010000 00110011
1 RL (HL) 0 01010000 00011001
1 RANDOMIZE USR 23600
1 PUSH AF 1 01010100 00000000
1 PUSH AF 1 01010000 00001100
1 PUSH AF 0 10101000 00000011
1 POP AF 1 01010100 00000001
1 POP AF 1 01010000 00011001
1 POP AF 0 10101000 00000110
1 OR
1 LOOP_1 XOR E ;
1 BLACK
1 31
1 195 RANDOMIZE FN c(17,10,7,7,1,1,0): PAUSE 0
1 190 RANDOMIZE FN c(25,0,7,9,2,1,0)
1 180 RANDOMIZE FN c(5,18,11,6,6,1,0)
1 170 RANDOMIZE FN c(0,0,16,9,4,1,0)
1 160 RANDOMIZE FN c(14,3,18,1,0,0,0)
1 150 RANDOMIZE FN c(0,17,32,1,0,0,0)
1 140 RANDOMIZE FN c(0,9,32,1,0,0,0)
1 130 RANDOMIZE FN c(24,0,1,24,0,0,0)
1 120 RANDOMIZE FN c(16,0,1,24,0,0,0)
1 110 RANDOMIZE FN c(4,10,1,14,0,0,0)
1 11
1 100 DEF FN c(x,y,h,v,c,b,f)=USR 62600: BORDER 7: PAPER 7: CLS
1 *AIG* & KSA SOFTWARE
1 Z
1 X X
1 WHITE
1 EXIT_1 POP BC ;
1 EXIT OR FF ;
1 E
1 BLUE
1 A = INK + PAPER*8 + BRIGHT*64 + FLASH * 128
1 2.9.
1 2.8.
1 2.7.
1 2.6.
1 2.5.
1 2.4.
1 2.3.
1 2.2
1 2.10
1 2.1
1 140 DATA 237, 176, 201
1 130 DATA 132, 103, 1, 168, 0
1 120 DATA 88, 255, 33, 0,*250
1 110 DATA 35, 126, 214, 48, 17
1 100 DATA 168, 0, 237, 176, 201
1 1.4
1 1.3.
1 1.2.
1 1.1.
1 1. O
1 *AIG* productions:
1 _________________________________
1 SCR_STR JP 2AB2 ;
1 SCR_FP CALL 2307H ;
1 SCR_FN LD HL,(DEFADD) ;
1 PRINT #0 "Hello"; A$ -
1 PRINT "Hello" -
1 LPRINT "Hello" -
1 LOOP LD A,(DE) ;
1 LOOP CALL TEST_LINE ;
1 ED79 OUT (C),A ;
1 E6F7 AND F7 ;
1 C9 RET ;
1 B3 OR E ;
1 90 DATA 0,*250, 130, 87, 1
1 80 DATA 48, 33, 88, 255, 17
1 70 DATA *250, 254, 76, 202, *60
1 60 DATA 126, 254, 87, 202, *30
1 570 PAUSE 0
1 560 NEXT i
1 550 DRAW 0,-50,0.8*PI
1 540 PLOT 20+i,150
1 530 FOR i= 0 TO 7
1 525 REM ******
1 520 INK 7
1 510 DRAW -70,i-40: NEXT i
1 500 PLOT 250,165-i
1 50 DATA *250, 201, 35, 126, 214
1 50 DATA 42, 93, 92, 35, 35
1 490 FOR i=-6 TO 6 STEP 2
1 480 INK 6: BRIGHT 1
1 475 REM *****
1 470 NEXT i
1 460 RANDOMIZE FN c(i,21,1,1,4,1,0)
1 450 RANDOMIZE FN c(i,19,1,1,4,1,0)
1 440 FOR i=24 TO 30 STEP 2
1 430 RANDOMIZE FN c(23,18,9,7,3,0,0)
1 420 NEXT i
1 410 RANDOMIZE FN c(4,i,1,1,6,1,0)
1 400 RANDOMIZE FN c(2,i,1,1,7,1,0)
1 40 FOR k = addr+60 TO addr+77: READ a: POKE k,a: NEXT k
1 3A5C5B SELECT LD A,(BANK_M);
1 390 FOR i=12 TO 22 STEP 2
1 385 REM ******
1 380 RANDOMIZE FN c(1,11,5,14,2,0,0)
1 370 RANDOMIZE FN e(17,6)
1 360 RANDOMIZE FN b(17,6,2,18,1,0,1)
1 350 RANDOMIZE FN c(19,10,1,14,4,1,0)
1 340 RETURN
1 340 RANDOMIZE FN c(17,6,2,18,4,1,1)
1 330 RANDOMIZE FN c(16,9,1,15,4,1,0)
1 330 NEXT m
1 325 REM *****
1 325
1 320 NEXT i
1 320 CIRCLE x, 75-y,m
1 310 RANDOMIZE FN c(x1,y1,h1,v1,c1,0,0)
1 310 CIRCLE x,75+y,m
1 300 LET c1=2+INT (RND*6)
1 300 FOR m=1 TO 1 STEP -1
1 30 FOR k = addr+30 TO addr+47: READ a: POKE k,a: NEXT k
1 3.15.
1 3.14.
1 3.13.
1 3.12.
1 3.11.
1 3.10.
1 290 LET x1=INT(RND*27)
1 280 LET v1=25-y1
1 270 LET y1=10+INT(RND*15)
1 260 LET h1=2+INT (RND*4)
1 250 RETURN
1 250 RANDOMIZE
1 240 LET e=e+0.5
1 240 FOR i=1 TO 50
1 235 REM *****
1 230 STOP
1 230 RANDOMUZE FN c(0,14,25,15,1,0,0)
1 230 PLOT x+e,f-(y+e): DRAW -e,0
1 220 PLOT x+e,f-y: DRAW 0,e
1 220 NEXT s
1 220 NEXT i
1 210 RESTORE FN f(x1,y1)
1 210 PLOT x,f-y: DRAW e,0
1 210 LET x=x+3
1 200 PLOT x,f -(y+e): DRAW 0,e
1 200 LET y=0
1 200 LET y1=174-(INT(74*RND))
1 20 FOR k = addr TO addr+16: READ a: POKE k,a: NEXT k
1 1E08 SCR_1 LD E,08 ;
1 1E00 SCR_0 LD E,00 ;
1 190 NEXT t
1 190 LET x1=INT (255*RND)
1 1802 JR SELECT ;
1 180 LET y=y+5
1 180 FOR i=0 TO 298 STEP 2
1 175 REM *****
1 175
1 170 POKE k+i,13
1 170 IF POINT (s,t)=1 THEN GO SUB 300
1 165 REM *****
1 160 NEXT i
1 160 FOR t= 168 TO 175
1 150 POKE k+i,n
1 150 FOR s=0 TO d*8
1 140 LET x= 127-(d*3/2)
1 140 LET n=CODE n$(i)
1 130 LET d=LEN A$*8
1 130 FOR i=1 TO l
1 125 REM *****
1 120 LET l=LEN n$: LET k=62499
1 120 LET f=90: LET e=2: LET x=0: GO TO 50
1 120 DRAW 255,0
1 110 PLOT 0,75
1 110 NEXT s
1 110 CLS : LET n$="SINCLAIR"
1 105 REM *****
1 100 PRINT INK 0; AT 0,0; A$
1 100 PAPER 0: INK 7: BORDER 0
1 100 LET y=0: LET x=x+e:
1 10 CLEAR addr-1
1 01FDF7 LD BC,7FFD ;
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~
1 ~~~~~~~~~~
1 ~~~~~~~
1 x,y -
1 p,q -
1 f -
1 c -
1 b -
1 X
1 SCR_1 LD A,C ;
1 PRINT TAB A (
1 PRINT AT B,C (
1 PRINT AT 10,10;"X"; AT 0,0; SCREEN$ (10,10)
1 POKE 56950,164 POKE 56958,19 POKE 56959,164
1 POKE 56792,19 POKE 56793,164 POKE 56949,19
1 OVER 1 -
1 OVER 0 -
1 INVERSE 1 -
1 INVERSE 0 -
1 FLASH 8 -
1 FLASH 1 -
1 FLASH 0 -
1 F: 1, 0, 0, 0, 0, 0, 0, 0
1 F
1 E: 167, 254, 254, 252, 32, 252, 0, 0
1 D: 63, 48, 49, 15, 4, 63, 0, 0
1 D7 RST 10H ; E, ....
1 D7 RST 10H ; D,.....
1 D7 RST 10H ; 5,.....
1 D7 RST 10H ; 4, ....
1 D7 RST 10H ; PRINT TAB...
1 D7 RST 10H ; E, ...
1 D7 RST 10H ; 0 ...
1 D7 RST 10H ; PRINT INK...
1 D7 RST 10H ; PAPER...
1 D7 RST 10H ; 6;....
1 D7 RST 10H ; 2;....
1 D7 RST 10H ; "*";
1 D7 RST 10H
1 CD0116 CALL 1601H ;
1 CBCE SET 1,(FLAGS) ;
1 C: 0, 0, 248, 0, 18, 14, 252, 226
1 C
1 BRIGHT 8 -
1 BRIGHT 1 -
1 BRIGHT 0 -
1 AND 214: 1 1 0 1 0 1 1 1
1 AF XOR A
1 A: 0, 0, 255, 0, 3, 4, 8, 16
1 90 NEXT t
1 90 IF LEN A$ > 10 THEN GO TO 60
1 80 LET y=y+e
1 80 CLS
1 7A LD A,D
1 70 NEXT i
1 70 INPUT A$
1 70 IF POINT (s,t)=1 THEN GO SUB 200
1 60 POKE i,15
1 60 PRINT "WORD?"
1 60 FOR t=175 TO 168 STEP -1
1 50 FOR i=22528 TO 23295
1 50 FOR s=0 TO LEN A$*8
1 50 CLS
1 5 LET addr = 640000
1 460 NEXT x: RETURN
1 450 LET by=by+1
1 440 RANDOMIZE FN g(tx,ty,x,by)
1 430 FOR x=b TO b+16
1 420 NEXT x
1 410 RANDOMIZE FN g(tx,ty,x,by)
1 400 FOR x=a TO b STEP 2
1 40 PRINT AT 0,0; A$
1 40 INK 7
1 40 DEF FN f(x,y) = USR 61500
1 4.
1 3E2A LOOP LD A,42 ;
1 3E2A LD A,2A
1 3E17 LD A,17
1 3E11 LD A,11H
1 3E10 LD A,10H
1 3E06 LD A,06
1 3E05 LD A,05
1 3E04 LD A,04
1 3E02 LD A,02
1 3E02 LD A,02 ;
1 3601 LD (TVFLAG),01 ;
1 3600 LD (HL),00 ;
1 30 PRINT, "ZX-SPECTRUM"
1 30 PRINT i, PEEK i
1 30 PAPER 0
1 30 IF LEN A$ >6 THEN GO TO 20
1 30 DEF FN c(x,y,h,v,c,b,f)=USR 62600
1 3.9.
1 3.8.
1 3.7.
1 3.6.
1 3.5.
1 3.4.
1 3.3.
1 3.2.
1 3.1
1 3.
1 240 NEXT j
1 24
1 230 RANDOMIZE FN g((10+j*3),j,(248-j*3),j)
1 220 FOR j=36 TO 0 STEP -3
1 213B5C LD HL,FLAGS
1 210 NEXT j
1 200 RANDOMIZE FN g(j,175,128,40)
1 200 RANDOMIZE FN g(208,160,208,48)
1 20 FOR i=23755 TO 24000
1 20 FOR i=1 TO 22
1 20 INPUT "WORD? "; A$
1 20 DEF FN e(x,y)=USR 61900
1 20 BORDER 0
1 2.9.3.
1 2.9.2.
1 2.9.1.
1 2.8.8.
1 2.8.7.
1 2.8.6.
1 2.8.5.
1 2.8.4.
1 2.8.3.
1 2.8.2.
1 2.8.1.
1 2.2.2.
1 2.2.1.
1 2,2.3.
1 190 RANDOMIZE FN g(96,160,208,160)
1 190 GO SUB 400: STOP
1 190 FOR j=6 TO 255 STEP 12
1 18FB JR LOOP
1 180 RANDOMIZE FN g(50+j,150,j,0)
1 180 RANDOMIZE FN g(0,175,j,0)
1 180 LET tx=156: LET by=60: LET a=102: LET b=182
1 170 RANDOMIZE FN g(255,j,128,40)
1 170 RANDOMIZE FN g(168,24+j,208,48+j)
1 170 RANDOMIZE FN g(50+j,150,255,150-j)
1 170 RANDOMIZE FN g(255,0,j,175)
1 170 GO SUB 400
1 160 RANDOMIZE FN g(56+j,136,96+j,160)
1 160 RANDOMIZE FN g(0,j,128,40)
1 160 RANDOMIZE FN g(255,j,j,0)
1 160 RANDOMIZE FN g(255,175,j,0)
1 160 LET tx=80: LET ty=136: LET by=24: LET a=16: LET b=128
1 150 RANDOMIZE FN g(56+j,24,56+j,136)
1 150 RANDOMIZE FN c(0,8,31,14,6,0,0)
1 150 RANDOMIZE FN g(50+j,0,j,175)
1 150 RANDOMIZE FN g(0,0,j,175)
1 150 FOR j=40 TO 174 STEP 12
1 15 LET test=FN a(3,8,5*2-7)
1 140 RANDOMIZE FN g(56,24+j,168,24+j)
1 140 RANDOMIZE FN c(0,0,32,17,2,0,0)
1 140 FOR j=0 TO 255 STEP i
1 140 FOR j=0 TO 150 STEP i
1 140 CLS
1 130 FOR j=0 TO 116 STEP 8
1 130 FOR i=16 TO 6 STEP -1
1 130 FOR i=14 TO 2 STEP -1
1 130 CLS
1 130 BORDER 0: PAPER 1: INK 2
1 128 64 32 16 8 4 2 1
1 128
1 120 DEF FN g(x,y,p,q) = USR 60700
1 120 BORDER 0: PAPER 1: INK 6
1 110 PRINT AT 11,15 "CDE"
1 110 DEF FN g(x,y,p,q) = USR 60700
1 110 DEF FN c(x,y,h,v,c,b,f)=USR 62600
1 110 BORDER 1: PAPER 1: INK 6
1 110 BORDER 0: PAPER 6: INK 0
1 110 BORDER 0: PAPER 1: INK 6
1 10FB DJNZ LOOP ;
1 100 PRINT AT 10,15 "ABC"
1 100 DEF FN c(x,y,h,v,c,b,f)=USR 62600
1 100 DEF FN b(x,y,h,v,c,b,f)=USR 62800
1 10 PAPER 6: INK 0: BORDER 6: CLS
1 10 DEF FN a(x,y,z)=x+y+z
1 10 LET y=0
1 10 LET x=0: LET y=0: LET e=2: LET f=160
1 10 DEF FN b(x,y,h,v,c,b,f)=USR 62800
1 1.4.1.
1 1.3.3.
1 1.3.2.
1 1.3.1.
1 1.2.4.
1 1.2.3.
1 1.2.1.
1 0600 LD B,00 ;
1 - P -
1 - I -
1 - F -
1 - B -
1 ~~~~~~~~~~~~~~~~~~
1 COPYRIGHT BY
1 6.
1 5.
1 1 REM *****
1 0
1 "
1 3.1.
1 1.3.2
1 1.3.1
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 RANDOMIZE USR address: REM Wn
1 RANDOMIZE USR address: REM Ln
1 PRINT TAB 10; "ZX-Spectrum".
1 CREDITS:
1 4.
1 2.8.
1 2.10
1 175 = 128 + 32 + 8 + 4 + 2 + 1
1 1.2.1.
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 LB = 42005 - HB*256 = 42005 - 164*256 = 21
1 HB = INT (42005/256) = 164
1 56958,56959 -
1 56949,56950 -
1 56792,56793 -
1 310 RANDOMIZE FN j(10,5)
1 300 PAUSE 100
1 290 RANDOMIZE FN g(250,20,130,2)
1 290 GO TO 110
1 280 RANDOMIZE FN g(10,20,130,2)
1 280 PAUSE 100
1 270 NEXT i
1 270 NEXT c
1 260 RANDOMIZE FN g(x1,y1,x2,y2)
1 260 LET x1=x1+96
1 250 NEXT i
1 250 LET y2=20
1 250 GO TO 110
1 240 PAUSE 0
1 240 LET x2=i*20-10
1 240 LET a=a+ad
1 230 RANDOMIZE FN k(x,y,x1,y1)
1 230 NEXT i
1 230 LET y1=174
1 23
1 220 LET y=y1+INT(70*COS a)
1 220 LET x1=i*20
1 220 LET a=a+ad
1 210 RANDOMIZE FN k(x,y,x1,y1)
1 210 LET x=x1+INT(70*SIN a)
1 210 FOR i=1 TO 12
1 200 NEXT i
1 200 LET y=y1+INT(70*COS a)
1 200 LET x=x1+INT(110*SIN a)
1 200 FOR i=0 TO 255 STEP s
1 2.
1 190 RANDOMIZE FN g(x1,y1,x2,y2)
1 190 NEXT j
1 190 FOR i=0 TO 255 STEP s
1 190 FOR c=1 TO 2
1 180 LET y2=20
1 180 LET x=x-5
1 170 LET x2=10+i*20
1 170 IF x/10 = INT (x/10) THEN RANDOMIZE FN j(x+1,j+1)
1 160 RANDOMIZE FN h(x,j,60,60)
1 160 LET y1=174
1 160 LET x1=80
1 160 LET x1=127
1 150 LET x1=i*20
1 150 FOR j=110 TO 110 STEP -5
1 140 LET x=140
1 140 FOR i=1 TO 12
1 121019,
1 120 BORDER 2: PAPER 6: INK 2
1 120 BORDER 1: PAPER 6: INK 2
1 110 BORDER 5: PAPER 5: INK 1
1 110 BORDER 0: PAPER 0: INK 3
1 100 DEF FN h(x,y,h,v)=USR 60400
1 100 DEF FN g(x,y,p,q)=USR 60700
1 1.3
1 1.2.4.
1 1.2.3.
1 0 1
1 PAPER = INT (A/8): A = A - PAPER*8:
1 MASK_P (23694 = 5C8EH);
1 INK = A
1 FLASH = INT (A/128): A = A - FLASH*128:
1 BRIGHT = INT (A/64): A = A - BRIGHT*64:
1 740 DATA 0, 0, 0, 0, 0
1 730 DATA 13, 32, 228, 201, 0
1 730 DATA 0, 0, 0, 0, 0
1 720 DATA 13, 32, 228, 201, 0
1 720 DATA 4, 62, 8, 132, 103
1 710 DATA 62, 32, 133, 111, 48
1 710 DATA 4, 62, 8, 132, 103
1 700 DATA 62, 32, 133, 111, 48
1 700 DATA 43, 36, 16, 245, 225
1 690 DATA 43, 36, 16, 245, 225
1 690 DATA 35, 19, 26, 119, 19
1 680 DATA 229, 6, 8, 26, 119
1 680 DATA 35, 19, 26, 119, 19
1 670 DATA 229, 6, 8, 26, 119
1 670 DATA 17, 206, 243, 14, 2
1 660 DATA 17, 157, 242, 14, 2
1 660 DATA 16, 220, 42, 238, 243
1 650 DATA 241, 119, 35, 19, 193
1 650 DATA 16, 220, 42, 189, 242
1 640 DATA 241, 119, 35, 19, 193
1 640 DATA 126, 35, 35, 119, 35
1 630 DATA 241, 43, 126, 245, 43
1 630 DATA 126, 35, 35, 119, 35
1 620 DATA 247, 35, 193, 13, 32
1 620 DATA 241, 43, 126, 245, 43
1 610 DATA 247, 35, 193, 13, 32
1 610 DATA 22, 241, 203, 22, 16
1 600 DATA 22, 241, 203, 22, 16
1 600 DATA 4, 197, 23, 245, 203
1 590 DATA 8, 197, 26, 1, 2
1 590 DATA 4, 197, 23, 245, 203
1 580 DATA 243, 33, 206, 243, 6
1 580 DATA 8, 197, 26, 1, 2
1 570 DATA 242, 33, 157, 242, 6
1 570 DATA 46, 0
1 570 DATA 16, 252, 237, 91, 242
1 560 DATA 230, 201, 0, 0, 0
1 560 DATA 32, 62, 0, 18, 19
1 560 DATA 16, 252, 237, 91, 193
1 550 DATA 201, 17, 206, 243, 6
1 550 DATA 32, 62, 0, 18, 19
1 550 DATA 32, 0, 9, 193, 16
1 540 DATA 201, 17, 157, 242, 6
1 540 DATA 193, 16, 164, 201, 193
1 540 DATA 35, 16, 244, 225, 1
1 530 DATA 193, 16, 169, 201, 193
1 530 DATA 60, 60, 50, 241, 243
1 530 DATA 58, 207, 245, 177, 119
1 520 DATA 113, 243, 58, 241, 243
1 520 DATA 71, 126, 230, 56, 79
1 520 DATA 60, 60, 50, 191, 242
1 510 DATA 197, 229, 58, 209, 245
1 510 DATA 111, 34, 238, 243, 205
1 510 DATA 64, 242, 58, 191, 242
1 500 DATA 111, 58, 208, 245, 71
1 500 DATA 111, 34, 189, 242, 205
1 500 DATA 31, 31, 31, 31, 130
1 500 DATA 12
1 490 DATA 103, 123, 230, 7, 183
1 490 DATA 0, 0, 0, 0, 0
1 480 DATA 193, 16, 230, 201, 0
1 480 DATA 123, 230, 24, 246, 64
1 470 DATA 225, 1, 32, 0, 9
1 470 DATA 123, 230, 24, 246, 64
1 470 DATA 63, 203, 63, 246, 88
1 470 DATA 32, 252, 34, 242, 243
1 460 DATA 230, 24, 203, 63, 203
1 460 DATA 177, 119, 35, 16, 244
1 460 DATA 54, 92, 36, 9, 61
1 460 DATA 32, 252, 34, 193, 242
1 450 DATA 237, 83, 210, 245, 123
1 450 DATA 54, 92, 36, 9, 61
1 450 DATA 32, 1, 8, 0, 42
1 450 DATA 7, 79, 58, 19, 245
1 440 DATA 208, 245, 254, 0, 200
1 440 DATA 144, 242, 111, 243, 214
1 440 DATA 32, 1, 8, 0, 42
1 440 DATA 21, 245, 71, 126, 230
1 430 DATA 245, 71, 197, 229, 58
1 430 DATA 237, 91, 210, 245, 58
1 430 DATA 144, 242, 62, 242, 214
1 430 DATA 31, 250, 111, 243, 254
1 420 DATA 246, 128, 50, 207, 245
1 420 DATA 35, 34, 244, 243, 254
1 420 DATA 31, 250, 62, 242, 254
1 420 DATA 31, 130, 111, 58, 20
1 410 DATA 243, 42, 244, 243, 126
1 410 DATA 40, 8, 58, 207, 245
1 410 DATA 35, 34, 195, 242, 254
1 410 DATA 7, 183, 31, 31, 31
1 400 DATA 246, 88, 103, 123, 230
1 400 DATA 245, 9, 126, 230, 1
1 400 DATA 242, 42, 195, 242, 126
1 400 DATA 82
1 400 DATA 62, 20, 187, 250, 111
1 390 DATA 245, 246, 64, 50, 207
1 390 DATA 222, 201, 0, 0, 0
1 390 DATA 63, 203, 63, 203, 63
1 390 DATA 62, 20, 187, 250, 62
1 390 DATA 28, 237, 83, 240, 243
1 380 DATA 245, 123, 230, 24, 203
1 380 DATA 244, 241, 195, 62, 242
1 380 DATA 62, 8, 132, 103, 16
1 380 DATA 37, 243, 22, 0, 28
1 380 DATA 1, 40, 8, 58, 207
1 370 DATA 243, 62, 30, 186, 242
1 370 DATA 242, 62, 30, 186, 242
1 370 DATA 207, 245, 9, 126, 230
1 370 DATA 32, 133, 111, 48, 4
1 370 DATA 0, 200, 237, 83, 22
1 360 DATA 243, 197, 237, 91, 240
1 360 DATA 242, 197, 237, 91, 191
1 360 DATA 200, 58, 21, 245, 254
1 360 DATA 16, 240, 225, 193, 62
1 360 DATA 9, 126, 230, 7, 50
1 350 DATA 94, 237, 83, 208, 245
1 350 DATA 58, 20, 245, 254, 0
1 350 DATA 33, 36, 244, 34, 244
1 350 DATA 33, 36, 244, 34, 195
1 350 DATA 16, 252, 225, 193, 36
1 340 DATA 246, 71, 175, 119, 35
1 340 DATA 245, 237, 91, 22, 245
1 340 DATA 240, 243, 62, 99, 71
1 340 DATA 210, 245, 9, 86, 9
1 340 DATA 191, 242, 62, 99, 71
1 330 DATA 245, 246, 128, 50, 19
1 330 DATA 8, 197, 229, 58, 119
1 330 DATA 0, 9 94, 237, 83
1 320 DATA 246, 71, 197, 229, 6
1 320 DATA 1, 40, 8, 58, 19
1 310 DATA 31, 130, 111, 58, 118
1 310 DATA 19, 245, 9, 126, 230
1 300 DATA 19, 245, 246, 64, 50
1 300 DATA 7, 183, 31, 31, 31
1 3.4.
1 3.3.
1 3.2
1 299 RETURN
1 290 RETURN
1 290 POKE k+i,13
1 290 DATA 246, 64, 103, 123, 230
1 290 DATA 230, 1, 40, 8, 58
1 280 POKE s+k,13
1 280 NEXT i
1 280 DATA 116, 246, 123, 230, 24
1 280 DATA 50, 19, 245, 9, 126
1 270 POKE k+i,n
1 270 NEXT k
1 270 DATA 254, 23, 240, 237, 83
1 270 DATA 39, 203, 39, 203, 39
1 260 POKE s+k,n
1 260 LET n=CODE n$(i)
1 260 DATA 237, 91, 116, 246, 123
1 260 DATA 9, 126, 230, 7, 203
1 250 LET n=CODE n$ (k)
1 250 FOR i=1 TO t
1 250 DATA 94, 237, 83, 118, 246
1 250 DATA 94, 237, 83, 20, 245
1 240 LET k=62499
1 240 FOR k=1 TO m
1 240 DATA 116, 246, 9, 86, 9
1 240 DATA 22, 245, 9, 86, 9
1 240 NEXT a
1 230 LET t=LEN(n$)
1 230 LET s=62499
1 230 RANDOMIZE FN i(256-a,138,78,216-a,a,38)
1 220 PAUSE 0
1 220 NEXT n
1 220 LET m=LEN(n$)
1 220 RANDOMIZE FN i(a,38,178,a-40,256-a,138)
1 210 STOP
1 210 RANDOMIZE FN b(n*4-1,0,2,22,n,0,0)
1 210 NEXT m
1 210 NEXT i
1 210 FOR a= 78 TO 178 STEP 4
1 200 RANDOMIZE FN d(x,y)
1 200 NEXT k
1 200 FOR n=1 TO 7
1 200 RANDOMUZE FN b(8,4,16,14,2,0,0)
1 200 LET a=a+ad
1 2.9.3.
1 2.9.2.
1 2.9.1.
1 2.9.
1 190 NEXT i: PAUSE 0 : REM
1 190 LET pap=pap+1
1 190 FOR m=1 TO 22 STEP 4
1 190 RANDOMIZE FN i(x,y,x2,y,5,170)
1 190 NEXT a
1 18F9 JR PAUSE ;
1 180 RESTORE FN c(x1,y1,h1,v1,c1,0,0)
1 180 RANDOMIZE FN e(x,3)
1 180 RANDOMIZE FN b(0,n*3-3,32,3,8-n,0,0)
1 180 RANDOMIZE FN a(n*6-5,n*3-1,5,5)
1 180 GO SUB 230
1 180 RANDOMIZE FN i(255-a,0,255,175-a,255,0)
1 180 LET x2=x1+INT (90*SIN (a+PI))
1 170 RANDOMIZE FN c(k-1,2,4,19,pap,0,0)
1 170 LET n$="SPECTRUM"
1 170 LET c1=INT (RND*7)
1 170 FOR n=1 TO 7
1 170 FOR n=1 TO 5
1 170 RANDOMIZE FN i(255-a,175,255,a,255,175)
1 170 LET y=y1+INT (10*COS a)
1 160 LET v1=INT (RND*15)
1 160 FOR k=5 TO 25 STEP 4
1 160 DRAW 255,0
1 160 RANDOMIZE FN i(a,175,0,a,0,175)
1 160 RANDOMIZE FN h(j*2,j,j,j)
1 160 RANDOMIZE FN h(206-j*2,j,50,50)
1 160 LET x=x1+INT (90*SIN a)
1 150 NEXT i
1 150 LET pap=1
1 150 LET h1=INT (RND*16)
1 150 RANDOMIZE FN i(a,0,0,175-a,0,0)
1 150 RANDOMIZE FN h(j*4,j,j,j)
1 150 RANDOMIZE FN h(206-j*2,130-j,50,50)
1 150 FOR i=0 TO 255 STEP s
1 140 LET y1=INT (RND*10)
1 140 GO SUB 220
1 140 DRAW -255,0: DRAW 0,6
1 140 RANDOMIZE FN h(j*4,j*3,j,j)
1 140 RANDOMIZE FN h(j*2,130-j,50,50)
1 140 LET x1=162: LET y1 = 20
1 140 FOR a=0 TO 75 STEP 4
1 130 LET x1=INT (RND*17)
1 130 LET n$="Spectrum"
1 130 DRAW 255,0: DRAW 0,6
1 130 RANDOMIZE FN h(j*2,j,50,50)
1 130 RANDOMIZE FN h(j*2,j*3,j,j)
1 130 LET s=4: LET a=0: LET ad=s*PI/128
1 130 CLS
1 120 FOR i=1 TO 120
1 120 FOR i=0 TO 13
1 120 BORDER 4: PAPER 1: INK 6: CLS
1 120 BORDER 1: PAPER 0: INK 0: CLS
1 120 BORDER 0: PAPER 0: INK 4: CLS
1 120 FOR j=5 TO 38 STEP 2
1 120 FOR j=1 TO 43
1 120 CLS
1 120 BORDER 4: PAPER 4: INK 1:
1 110 DEF FN e(x,y)=USR 61900
1 110 DEF FN b(x,y,h,v,c,b,f)=USR 62800
1 110 DEF FN a(x,y,h,v)=USR 63000
1 110 BORDER 1: PAPER 6: INK 1: CLS
1 110 BORDER 1: PAPER 4: CLS
1 110 DEF FN i(x,y,p,q,r,s) = USR 60300
1 110 BORDER 3: PAPER 3: INK 6: CLS
1 110 BORDER 0: PAPER 2: INK 6 :CLS
1 110 BORDER 0: PAPER 0: INK 6:
1 1080 DATA 38, 0, 0, 0, 0
1 1070 DATA 125, 0, 0, 0, 0
1 1060 DATA 226, 118, 98, 78, 194
1 1050 DATA 2, 5, 10, 130, 72
1 1040 DATA 26, 237, 176, 201, 2
1 1030 DATA 17, 0, 64, 1, 0
1 1020 DATA 176, 201, 33, 0, 118
1 1010 DATA 118, 1, 0, 26, 237
1 1000 DATA 33, 0, 64, 17, 0
1 100 DEF FN d(x,y)=USR 62200
1 100 DEF FN i(x,y,p,q,r,s) = USR 60300
1 100 DEF FN b(x,y,h,v,c,b,f) = USR 62800
1 1.3.3
1 0 255
1 0
1 C8 RET Z ;
1 B1 OR C ;
1 990 DATA 37, 35, 16, 249, 201
1 980 DATA 39, 71, 126, 36, 119
1 970 DATA 201, 58, 140, 222, 203
1 960 DATA 208, 62, 8, 130, 87
1 950 DATA 201, 62, 32, 131, 95
1 940 DATA 208, 62, 8, 132, 103
1 930 DATA 201, 62, 32, 133, 111
1 930 DATA 192, 0, 0, 0, 0
1 920 DATA 193, 13, 32, 237, 19
1 920 DATA 9, 86, 9, 201, 0
1 910 DATA 205, 179, 237, 193, 225
1 910 DATA 203, 22, 16, 247, 35
1 900 DATA 176, 119, 201, 229, 197
1 900 DATA 23, 245, 203, 22, 241
1 890 DATA 197, 245, 175, 119, 241
1 890 DATA 57, 0, 0, 0, 0
1 890 DATA 6, 255, 168, 71, 126
1 880 DATA 201, 26, 1, 2, 4
1 880 DATA 62, 254, 15, 16, 253
1 880 DATA 40, 226, 201, 193, 195
1 870 DATA 222, 225, 36, 36, 20
1 870 DATA 122, 230, 7, 71, 4
1 870 DATA 44, 226, 229, 225, 34
1 860 DATA 199, 171, 7, 7, 111
1 860 DATA 147, 222, 229, 205, 99
1 860 DATA 66, 32, 5, 225, 33
1 850 DATA 42, 145, 222, 237, 91
1 850 DATA 7, 7, 7, 171, 230
1 850 DATA 1, 76, 229, 167, 237
1 840 DATA 230, 248, 171, 103, 122
1 840 DATA 115, 35, 114, 35, 229
1 840 DATA 54, 222, 193, 16, 249
1 830 DATA 226, 237, 91, 42, 226
1 830 DATA 83, 147, 222, 197, 205
1 830 DATA 55, 31, 167, 31, 171
1 820 DATA 249, 36, 95, 167, 31
1 820 DATA 126, 176, 119, 42, 40
1 820 DATA 71, 34, 145, 222, 237
1 810 DATA 217, 201, 58, 140, 222
1 810 DATA 168, 71, 126, 160, 192
1 810 DATA 1, 62, 175, 147, 218
1 800 DATA 217, 201, 181, 214, 1
1 800 DATA 83, 143, 222, 193, 16
1 800 DATA 15, 16, 253, 6, 255
1 790 DATA 222, 205, 89, 222, 237
1 790 DATA 123, 175, 237, 217, 225
1 790 DATA 7, 71, 4, 62, 254
1 780 DATA 237, 202, 147, 237, 237
1 780 DATA 32, 235, 237, 91, 143
1 780 DATA 7, 7, 111, 122, 230
1 78 PAUSE LD A,B ;
1 770 DATA 141, 222, 6, 4, 13
1 770 DATA 29, 32, 205, 195, 167
1 770 DATA 7, 171, 230, 199, 171
1 760 DATA 222, 205, 79, 222, 34
1 760 DATA 205, 179, 237, 217, 122
1 760 DATA 171, 103, 122, 7, 7
1 76 HALT ;
1 750 DATA 193, 16, 249, 42, 141
1 750 DATA 167, 31, 171, 230, 248
1 750 DATA 87, 237, 83, 26, 237
1 740 DATA 237, 202, 167, 237, 61
1 740 DATA 95, 167, 31, 55, 31
1 740 DATA 4, 197, 205, 20, 222
1 730 DATA 226, 62, 175, 147, 216
1 730 DATA 222, 71, 197, 1, 2
1 730 DATA 122, 60, 132, 218, 164
1 720 DATA 133, 225, 237, 83, 42
1 720 DATA 91, 143, 222, 58, 139
1 720 DATA 86, 0, 0, 0, 0
1 720 DATA 26, 237, 123, 133, 95
1 710 DATA 222, 42, 141, 222, 237
1 710 DATA 167, 237, 66, 200, 195
1 710 DATA 87, 197, 217, 209, 42
1 710 DATA 60, 60, 90, 63, 0
1 700 DATA 226, 237, 75, 40, 226
1 700 DATA 177, 237, 195, 132, 237
1 700 DATA 51, 237, 201, 30, 3
1 700 DATA 34, 143, 222, 205, 113
1 690 DATA 226, 229, 225, 34, 38
1 690 DATA 148, 87, 217, 237, 91
1 690 DATA 87, 34, 26, 237, 205
1 690 DATA 82, 17, 0, 118, 25
1 680 DATA 237, 188, 218, 128, 237
1 680 DATA 95, 44, 58, 87, 236
1 680 DATA 32, 5, 225, 33, 44
1 680 DATA 17, 0, 64, 167, 237
1 670 DATA 130, 111, 34, 141, 222
1 670 DATA 123, 31, 133, 218, 118
1 670 DATA 86, 236, 58, 82, 236
1 670 DATA 76, 229, 167, 237, 66
1 660 DATA 237, 205, 51, 237, 42
1 660 DATA 226, 35, 35, 229, 1
1 660 DATA 183, 31, 31, 31, 31
1 660 DATA 177, 237, 14, 0, 99
1 660 DATA 68, 0, 0, 0, 0
1 650 DATA 237, 107, 90, 237, 67
1 650 DATA 205, 207, 225, 42, 38
1 650 DATA 86, 236, 95, 34, 26
1 650 DATA 64, 103, 123, 230, 7
1 650 DATA 40, 143, 80, 123, 0
1 640 DATA 226, 94, 29, 35, 86
1 640 DATA 222, 123, 230, 24, 246
1 640 DATA 107, 237, 178, 202, 167
1 640 DATA 58, 83, 236, 87, 58
1 640 DATA 51, 237, 201, 40, 6
1 630 DATA 235, 34, 26, 237, 205
1 630 DATA 205, 207, 225, 42, 38
1 630 DATA 177, 237, 175, 71, 195
1 630 DATA 139, 222, 237, 91, 137
1 630 DATA 56, 0, 0, 0, 0
1 630 DATA 51, 237, 42, 86, 236
1 630 DATA 24, 0, 0, 0, 0
1 620 DATA 226, 94, 35, 86, 20
1 620 DATA 119, 201, 0, 0, 0
1 620 DATA 98, 34, 26, 237, 205
1 620 DATA 91, 210, 235, 42, 208
1 620 DATA 48, 10, 106, 237, 67
1 620 DATA 22, 221, 201, 0, 0
1 620 DATA 6, 62, 21, 144, 50
1 610 DATA 255, 168, 71, 126, 176
1 610 DATA 237, 205, 51, 237, 237
1 610 DATA 237, 68, 95, 122, 187
1 610 DATA 222, 128, 214, 22, 56
1 610 DATA 205, 207, 225, 42, 38
1 610 DATA 131, 50, 86, 236, 111
1 610 DATA 19, 120, 18, 237, 83
1 600 DATA 254, 15, 16, 253, 6
1 600 DATA 226, 94, 28, 35, 86
1 600 DATA 210, 80, 237, 14, 255
1 600 DATA 137, 222, 71, 58, 139
1 600 DATA 82, 236, 58, 84, 236
1 600 DATA 42, 212, 235, 34, 26
1 600 DATA 19, 24, 227, 241, 18
1 590 DATA 237, 237, 91, 208, 235
1 590 DATA 237, 68, 87, 123, 149
1 590 DATA 230, 7, 71, 4, 62
1 590 DATA 205, 207, 225, 42, 38
1 590 DATA 205, 51, 237, 237, 91
1 590 DATA 144, 50, 140, 222, 58
1 590 DATA 5, 18, 19, 120, 18
1 580 DATA 236, 107, 34, 26, 237
1 580 DATA 226, 94, 35, 86, 21
1 580 DATA 224, 40, 6, 62, 31
1 580 DATA 210, 70, 237, 6, 255
1 580 DATA 171, 7, 7, 111, 122
1 580 DATA 34, 26, 237, 205, 51
1 580 DATA 32, 4, 4, 32, 238
1 580 DATA 28, 0, 0, 0, 0
1 570 DATA 240, 201, 0, 0, 0
1 570 DATA 236, 130, 103, 50, 87
1 570 DATA 212, 235, 42, 210, 235
1 570 DATA 58, 140, 222, 128, 230
1 570 DATA 40, 16, 241, 78, 185
1 570 DATA 34, 38, 226, 42, 38
1 570 DATA 7, 7, 171, 230, 199
1 570 DATA 1, 1, 1, 122, 148
1 560 DATA 252, 124, 254, 91, 32
1 560 DATA 248, 171, 103, 122, 7
1 560 DATA 222, 58, 138, 222, 71
1 560 DATA 217, 237, 115, 175, 237
1 560 DATA 91, 82, 236, 58, 85
1 560 DATA 86, 9, 94, 237, 83
1 560 DATA 36, 245, 124, 254, 91
1 560 DATA 35, 34, 40, 226, 225
1 550 DATA 237, 83, 210, 235, 9
1 550 DATA 237, 83, 84, 236, 237
1 550 DATA 222, 9, 126, 50, 139
1 550 DATA 71, 241, 119, 35, 16
1 550 DATA 42, 26, 237, 217, 229
1 550 DATA 33, 44, 226, 229, 35
1 550 DATA 31, 167, 31, 171, 230
1 550 DATA 1, 126, 44, 32, 8
1 540 DATA 237, 205, 226, 237, 94
1 540 DATA 236, 9, 86, 9, 94
1 540 DATA 235, 9, 86, 9, 94
1 540 DATA 226, 237, 83, 42, 226
1 540 DATA 222, 9, 126, 50, 140
1 540 DATA 221, 33, 0, 64, 6
1 540 DATA 216, 95, 167, 31, 55
1 540 DATA 26, 245, 19, 26, 19
1 540 DATA 13, 0, 0, 0, 0
1 530 DATA 50, 223, 237, 201, 0
1 530 DATA 9, 94, 237, 83, 208
1 530 DATA 9, 94, 237, 83, 137
1 530 DATA 9, 94, 237, 83, 44
1 530 DATA 9, 94, 237, 83, 26
1 530 DATA 9, 94, 62, 175, 147
1 530 DATA 9, 94, 33, 0, 64
1 520 DATA 205, 28, 237, 62, 176
1 510 DATA 62, 168, 50, 223, 237
1 40 POKE (adr+i),a: LET z=z+a: NEXT i
1 3.
1 20 LET adr=63000: LET long=95: LET z=0
1 20 LET adr=62800: LET long=130: LET z=0
1 20 LET adr=62600: LET long=145: LET z=0
1 20 LET adr=62200: LET long=220: LET z=0
1 20 LET adr=61900: LET long=210: LET z=0
1 20 LET adr=61500: LET long=60: LET z=0
1 20 LET adr=60700: LET long=210: LET z=0
1 20 LET adr=60400: LET long=105: LET z=0
1 20 LET adr=60300: LET long=75: LET z=0
1 20 LET adr=57700: LET long=190: LET z=0
1 20 LET adr=57600: LET long=15: LET z=0
1 20 LET adr=56700: LET long=285: LET z=0
1 20 LET adr=56600: LET long=60: LET z=0
1 20 LET adr=56500: LET long=35: LET z=0
1 0B DEC BC ;
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 XOR B ;
1 XOR A ;
1 XOR 40 ;
1 RST 30 ;
1 RET Z ;
1 RET ;
1 RET ;
1 PUSH DE ;
1 POP DE ;
1 LD HL,4000H ;
1 LD HL,0041H ;
1 LD HL, (CHARS) ;
1 LD E,A ;
1 LD DE,0004
1 LD DE,(23606) ;
1 LD D,A ;
1 LD C,(HL) ;
1 LD BC,0000 ;
1 LD B,08 ;
1 LD B,00 ;
1 LD B,(HL) ;
1 LD A,C ;
1 LD (HL),A ; DE
1 LD (DE),A ;
1 JR Z,SCR_SINGL ;
1 JR NZ,SCR_STR ;
1 INC H ;
1 INC H ;
1 INC DE ;
1 INC BC ;
1 EX DE,HL ;
1 DJNZ LOOP ;
1 DEC C
1 CALL 2BF1H ;
1 CALL 254DH ;
1 AND E0 ;
1 AND 18 ;
1 ADD HL,DE ;
1 60 NEXT i
1 50 POKE (screen+256*i),pic
1 40 LET pic=PEEK (addr+i)
1 30 FOR i=0 TO 7
1 3.6.
1 3.5.
1 25 LET screen=16384
1 20 LET addr = base+8*65
1 2.3
1 10 LET base=PEEK 23606 + 256*PEEK 23607
1 1.4.1
1 0
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 x,y -
1 r,s -
1 p,g -
1 RR A ;
1 RLCA ;
1 RLC E ;
1 RL E ;
1 RET Z ;
1 PUSH DE ;
1 POP HL ;
1 LD HL,(UDG) ;
1 LD E,00 ;
1 LD D,A ;
1 LD C,A ;
1 LD B,15H ;15H = 21 DEC -
1 LD A,E ;
1 JR EXIT_1 ;
1 JR C, EXIT ;
1 INC H ;
1 I.
1 DJNZ LOOP_1 ;
1 DJNZ LOOP ;
1 DEC C
1 CP D ;
1 CALL 2BF1 ;
1 CALL 254F ;
1 ADD A,C ;
1 ADD A,80 ;
1 ADD A,25 ;
1 <<
1 470 RETURN
1 460 NEXT y
1 450 NEXT x
1 440 IF n<x1+x THEN RESTORE FN f(x+xc,y+yc)
1 430 LET n=INT (RND*(1)*x1*2)+1
1 420 FOR x=-x1 TO x1
1 410 FOR x1 = INT (SQR (r*r-y*y)
1 400 FOR y=-r TO r
1 40 NEXT i
1 31
1 30 PRINT i, PEEK i
1 30 GO TO 10
1 3.9.
1 3.12.
1 3.11.
1 3.10.
1 20 PAUSE 10:
1 20 FOR i=23755 TO 24000
1 2.4.
1 2.2
1 190 NEXT n
1 180 NEXT x
1 170 RANDOMIZE FN f(255-z, 168-y)
1 170 NEXT j
1 160 STOP
1 160 RANDOMIZE FN f(z,y)
1 160 NEXT m
1 150 RANDOMIZE FN f(m,y)
1 150 LET y= INT (x*8)
1 150 GO SUB 400
1 140 LET z= INT(x^n)
1 140 LET y=INT (90+60*(cos (m*PI+j)))
1 140 LET r=20: LET xc=75: LET yc=100
1 130 GO SUB 400
1 130 FOR x= 0 TO 22 STEP 0.5
1 130 FOR m=1 TO 510
1 120 LET r=60: LET xc=127: LET yc=88
1 120 FOR n=1.19 TO 1.80 STEP 0.01
1 120 FOR j= 240 TO 160 STEP -4
1 110 BORDER 6: PAPER 6: INK 0: CLS
1 110 BORDER 0: PAPER 0: INK 4: CLS
1 110 BORDER 0: PAPER 0: INK 2: CLS
1 10 PRINT AT 10,12; OVER 1: "SPECTRUM"
1 10 DEF FN a(x,y,z)=x+y+z
1 PRINT AT 10,14; "1"; "2"; "3"; "4"
1 PRINT AT 10,14; "1", "2", "3", "4"
1 PRINT AT 10,14; "1" ' "2" ' "3" ' "4"
1 40 NEXT i
1 40 DATA 0, 96, 255, 96, 240, 248, 255, 167
1 30 POKE i,255
1 30 NEXT i
1 20 FOR i=16384 TO (16384+256*8)
1 20 READ a: POKE USR "b"+i, a
1 128*F + 64*B + 8*P + I,
1 10 CLS: BORDER 5
1 10 FOR i = 0 TO 7
1 "ZX - SPECTRUM"
1 3.7.
1 2.7.
1 2.5.
1 2.1
1 128 64 32 16 8 4 2 1
1 DRAW x,y,a*PI/180
1 40 GO TO 10
1 30 PAUSE 10
1 20 PLOT OVER 1; 120,120
1 2.8.2
1 2.6
1 2.2.2.
1 15 PAUSE 10
1 10 PLOT 120, 120
1 1.4
1 ~~~~~~~~~~~~~~~~~~~~~~~~
1 POKE (16384+32),85
1 DRAW x,y
1 3.15.
1 3.14.
1 3.13.
1 10 PRINT INK 7; "ZX-Spectrum"
1 10 INK 7: PRINT "ZX-Spectrum"
1 1.2
1 DEMO AT_D_E
1 DEMO AT_5_4
1 3.8.
1 20 CLS
1 2.8.7
1 2.8.6
1 2.8.4.
1 2.8.1 CLS (CLEAR SCREEN)
1 10 INK 6: PAPER 1:
1 ..................
1 v -
1 h -
1 RST 10
1 OUT 254,
1 OUT (FEH),A
1 LD A,N
1 LD A,
1 ADD A,30H
1 2.8.8
1 2.8.5
1 2.2.3.
1 2.2.1.
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~
1 50 DRAW 0,50
1 40 DRAW -50,0
1 30 DRAW 0,50
1 20 DRAW 50,0
1 2.8.3.
1 10 PLOT 100,100
1 ~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~
1 PRINT AT (10,12); ""
1 DEMO TAB_E
1 CLS (CLEAR SCREEN).
1 1.1.
1 Postscriptum
1 POKE 16384,85
1 POKE 16384,255
1 POKE 16384,15
1 LD A,0AFH
1 128-
1 ~~~~~~~~~~~~~
1 ~~~~~~~~~~~
1 ~~~~~~~~~
1 SCREEN$ (Y,X)
1 PLOT x,y
1 ATTR (Y,X)
1 ;
1 ~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~
1 ~~~~~~~~~~
1 SUB B
1 LD H,A
1 LD A,D
1 LD A,08
1 CIRCLE x,y,r
1 AND 07
1 ADD A,D
1 ~~~~~~~~
1 POINT x,y
1 LD H,A
1 LD A,E
1 BRIGHT n
1 ~~~~~~~~~~~~~~~
1 ~~~~~~~~~~
1 ~~~~~~~~~
1 ~~~~~
1 TAB n
1 SCF
1 OR A /
1 OR 58
1 OR 40
1 OR A
1 LD H,A
1 INVERSE n
1 INK n
1 BORDER n
1 AT y,x
1 AND A /
1 AND A
1 AND 0F8H
1 ADD A,D
1 SUB E
1 LD E,A
1 LD A,E
1 LD A,D
1 ~~~~~~
1 PAPER n
1 OVER n
1 FLASH n
1 AND C7
1 ;S_SCRN_$,
1 ;ASCII.
1 ;A,E,D,C,B.
1 ;256
1 ;(23606 = 5C36)
1 ;ah
1 ;E
1 ;(23675 = 5C7BH)
1 ; al 0 0 0 0 0 0 ah,
1 ; 0 0 0 0 0 0 ah al
1 ; 0 0 0 0 0 0 0 ah
1 ;
1 ;y.
1 ;x,y-1.
1 ;x,(y+1).
1 ;x+1,y.
1 ;of range".
1 ;n-
1 ;n -
1 ;min>0.5max.
1 ;min<0.5max.
1 ;XOR B.
1 ;XOR B
1 ;SIGN (60849).
1 ;O.K.
1 ;FLASH.
1 ;DOUBLE.
1 ;CH_ADD.
1 ;64000.
1 ;62141
1 ;57H=87 DEC -
1 ;4CH=76 DEC -
1 ;30208 (
1 ;(x-1),y.
1 ;(60898),
1 ;(23563).
1 ;"W",
1 ; BANK_M (5B5CH) -
1 ; (60851)
1 ; 256-
1 ; (
1 ; "*".
1 /
1 /
1
1
1
1
1
1